source('../env.R')
Using GitHub PAT from the git credential store.
Skipping install of 'clootl' from a github remote, the SHA1 (30ac57ee) has not changed since last install.
  Use `force = TRUE` to force installation
community_data = read_csv(filename(COMMUNITY_OUTPUT_DIR, 'community_assembly_metrics_using_relative_abundance.csv'))
Rows: 308 Columns: 10── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl (10): mntd_standard, mntd_actual, mass_fdiv_standard, mass_fdiv_actual, beak_width_fdiv_standard, b...
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
head(community_data)
colnames(community_data)
 [1] "mntd_standard"            "mntd_actual"              "mass_fdiv_standard"      
 [4] "mass_fdiv_actual"         "beak_width_fdiv_standard" "beak_width_fdiv_actual"  
 [7] "hwi_fdiv_standard"        "hwi_fdiv_actual"          "city_id"                 
[10] "urban_pool_size"         
min(community_data$mntd_standard)
[1] -2.33692
max(community_data$mntd_standard)
[1] 2.328448
min(community_data$beak_width_fdiv_standard)
[1] -2.685152
max(community_data$beak_width_fdiv_standard)
[1] 1.931681
min(community_data$hwi_fdiv_standard)
[1] -2.200336
max(community_data$hwi_fdiv_standard)
[1] 2.333383
min(community_data$mass_fdiv_standard)
[1] -2.377212
max(community_data$mass_fdiv_standard)
[1] 2.1073

Join on realms

city_to_realm = read_csv(filename(CITY_DATA_OUTPUT_DIR, 'realms.csv'))
Rows: 337 Columns: 2── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (1): core_realm
dbl (1): city_id
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
community_data_with_realm = left_join(community_data, city_to_realm)
Joining with `by = join_by(city_id)`

Cities as points

city_points = st_centroid(read_sf(filename(CITY_DATA_OUTPUT_DIR, 'city_selection.shp'))) %>% left_join(community_data_with_realm)
Warning: st_centroid assumes attributes are constant over geometriesWarning: st_centroid does not give correct centroids for longitude/latitude dataJoining with `by = join_by(city_id)`
city_points_coords = st_coordinates(city_points)
city_points$latitude = city_points_coords[,1]
city_points$longitude = city_points_coords[,2]
world_map = read_country_boundaries()

Load community data, and create long format version

communities = read_csv(filename(COMMUNITY_OUTPUT_DIR, 'communities_for_analysis.csv'))
Rows: 2428 Columns: 7── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (5): city_name, ebird_species_name, seasonal, presence, origin
dbl (2): city_id, relative_abundance_proxy
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
communities
community_summary = communities %>% group_by(city_id) %>% summarise(regional_pool_size = n(), urban_pool_size = sum(relative_abundance_proxy > 0))
community_summary

Load trait data

traits = read_csv(filename(TAXONOMY_OUTPUT_DIR, 'traits_ebird.csv'))
Rows: 332 Columns: 10── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (5): ebird_species_name, habitat, trophic_level, trophic_niche, primary_lifestyle
dbl (5): beak_width, hwi, mass, habitat_density, migration
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
head(traits)

Load spatial var

spatial_var = read_csv(filename(COMMUNITY_OUTPUT_DIR, 'spatial_var.csv')) %>% filter(city_id %in% community_summary$city_id)
Rows: 337 Columns: 3── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl (3): city_id, NMDS1, NMDS2
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
spatial_var

Summary metrics by Realm

test_required_values = function(name, df) {
  cat(paste(
    test_value_wilcox(paste(name, 'MNTD'), df$mntd_standard),
    test_value_wilcox(paste(name, 'Beak Width FDiv'), df$beak_width_fdiv_standard),
    test_value_wilcox(paste(name, 'HWI FDiv'), df$hwi_fdiv_standard),
    test_value_wilcox(paste(name, 'Mass FDiv'), df$mass_fdiv_standard),
    paste('N', nrow(df)),
    sep = "\n"))
}
test_required_values('Global', community_data_with_realm)
Global MNTD median -0.36 ***
Global Beak Width FDiv median 0.02 
Global HWI FDiv median 0.39 **
Global Mass FDiv median 0.29 ***
N 308
unique(community_data_with_realm$core_realm)
[1] "Nearctic"    "Neotropic"   "Palearctic"  "Afrotropic"  "Indomalayan" "Australasia"
test_required_values('Nearctic', community_data_with_realm[community_data_with_realm$core_realm == 'Nearctic',])
Nearctic MNTD median 0.67 *
Nearctic Beak Width FDiv median 0.29 
Nearctic HWI FDiv median -0.8 ***
Nearctic Mass FDiv median -0.26 
N 46
test_required_values('Neotropic', community_data_with_realm[community_data_with_realm$core_realm == 'Neotropic',])
Neotropic MNTD median 0.03 
Neotropic Beak Width FDiv median -0.44 ***
Neotropic HWI FDiv median -0.31 
Neotropic Mass FDiv median 0.33 *
N 64
test_required_values('Palearctic', community_data_with_realm[community_data_with_realm$core_realm == 'Palearctic',])
Palearctic MNTD median 0.13 
Palearctic Beak Width FDiv median 1.25 ***
Palearctic HWI FDiv median -0.39 
Palearctic Mass FDiv median 0.01 
N 72
test_required_values('Afrotropic', community_data_with_realm[community_data_with_realm$core_realm == 'Afrotropic',])
Afrotropic MNTD median -1.28 *
Afrotropic Beak Width FDiv median -0.56 
Afrotropic HWI FDiv median 0.15 
Afrotropic Mass FDiv median -0.95 
N 9
test_required_values('Indomalayan', community_data_with_realm[community_data_with_realm$core_realm == 'Indomalayan',])
Indomalayan MNTD median -0.64 ***
Indomalayan Beak Width FDiv median -0.68 ***
Indomalayan HWI FDiv median 1.11 ***
Indomalayan Mass FDiv median 0.83 ***
N 111
test_required_values('Australasia', community_data_with_realm[community_data_with_realm$core_realm == 'Australasia',])
Australasia MNTD median -1.39 
Australasia Beak Width FDiv median -0.75 
Australasia HWI FDiv median 0.77 
Australasia Mass FDiv median -0.96 
N 6

How significant are those differences:

kruskal.test(mntd_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  mntd_standard by core_realm
Kruskal-Wallis chi-squared = 102.25, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$mntd_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$mntd_standard and community_data_with_realm$core_realm 

            Afrotropic      Australasia Indomalayan     Nearctic Neotropic
Australasia 1.00000         -           -               -        -        
Indomalayan 0.00423         0.01024     -               -        -        
Nearctic    0.0000031706079 0.00018     0.0000000148738 -        -        
Neotropic   0.00018         0.00170     0.0000000095796 0.19502  -        
Palearctic  0.00018         0.00170     0.0000000000072 0.04492  1.00000  

P value adjustment method: holm 
kruskal.test(beak_width_fdiv_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  beak_width_fdiv_standard by core_realm
Kruskal-Wallis chi-squared = 108.07, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$beak_width_fdiv_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$beak_width_fdiv_standard and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan          Nearctic          Neotropic        
Australasia 1.00000    -           -                    -                 -                
Indomalayan 1.00000    1.00000     -                    -                 -                
Nearctic    0.11361    1.00000     0.00131              -                 -                
Neotropic   1.00000    1.00000     1.00000              0.00371           -                
Palearctic  0.00026    0.13449     < 0.0000000000000002 0.000001417670330 0.000000000000017

P value adjustment method: holm 
kruskal.test(hwi_fdiv_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  hwi_fdiv_standard by core_realm
Kruskal-Wallis chi-squared = 115.12, df = 5, p-value < 0.00000000000000022
pairwise.wilcox.test(community_data_with_realm$hwi_fdiv_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$hwi_fdiv_standard and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan         Nearctic Neotropic
Australasia 1.0000     -           -                   -        -        
Indomalayan 0.1553     1.0000      -                   -        -        
Nearctic    1.0000     0.0045      0.00000000000000046 -        -        
Neotropic   1.0000     0.0680      0.00000000000000269 0.1028   -        
Palearctic  1.0000     0.3068      0.00000000003391888 0.2673   1.0000   

P value adjustment method: holm 
kruskal.test(mass_fdiv_standard~core_realm, data = community_data_with_realm)

    Kruskal-Wallis rank sum test

data:  mass_fdiv_standard by core_realm
Kruskal-Wallis chi-squared = 49.157, df = 5, p-value = 0.000000002061
pairwise.wilcox.test(community_data_with_realm$mass_fdiv_standard, community_data_with_realm$core_realm)

    Pairwise comparisons using Wilcoxon rank sum exact test 

data:  community_data_with_realm$mass_fdiv_standard and community_data_with_realm$core_realm 

            Afrotropic Australasia Indomalayan Nearctic Neotropic
Australasia 1.0000     -           -           -        -        
Indomalayan 0.0031     0.1307      -           -        -        
Nearctic    0.1307     1.0000      0.0021      -        -        
Neotropic   0.0132     0.2989      1.0000      0.1307   -        
Palearctic  0.0731     1.0000      0.000000021 1.0000   0.0599   

P value adjustment method: holm 

Summary metrics by invasive species

cities_with_introduced_species = communities %>% filter(origin == 'Introduced') %>% select(city_id) %>% distinct()

cities_with_no_introduced_species = communities %>% filter(!(city_id %in% cities_with_introduced_species$city_id)) %>% select(city_id) %>% distinct()

cities_with_introduced_species$introduced_species = TRUE
cities_with_no_introduced_species$introduced_species = FALSE

community_data_with_realm_with_introduced = community_data_with_realm %>% left_join(rbind(cities_with_introduced_species, cities_with_no_introduced_species))
Joining with `by = join_by(city_id)`
community_data_with_realm_with_introduced
test_required_values('With Introduced', community_data_with_realm_with_introduced[community_data_with_realm_with_introduced$introduced_species,])
With Introduced MNTD median -0.03 
With Introduced Beak Width FDiv median 0.11 
With Introduced HWI FDiv median -0.36 
With Introduced Mass FDiv median 0.01 
N 189
test_required_values('Without Introduced', community_data_with_realm_with_introduced[!community_data_with_realm_with_introduced$introduced_species,])
Without Introduced MNTD median -0.53 ***
Without Introduced Beak Width FDiv median -0.28 *
Without Introduced HWI FDiv median 1.04 ***
Without Introduced Mass FDiv median 0.72 ***
N 119

How significant are those differences:

wilcox.test(community_data_with_realm_with_introduced$mntd_standard~community_data_with_realm_with_introduced$introduced_species)

    Wilcoxon rank sum test with continuity correction

data:  community_data_with_realm_with_introduced$mntd_standard by community_data_with_realm_with_introduced$introduced_species
W = 7925, p-value = 0.00001285
alternative hypothesis: true location shift is not equal to 0
wilcox.test(community_data_with_realm_with_introduced$beak_width_fdiv_standard~community_data_with_realm_with_introduced$introduced_species)

    Wilcoxon rank sum test with continuity correction

data:  community_data_with_realm_with_introduced$beak_width_fdiv_standard by community_data_with_realm_with_introduced$introduced_species
W = 8662, p-value = 0.0006884
alternative hypothesis: true location shift is not equal to 0
wilcox.test(community_data_with_realm_with_introduced$hwi_fdiv_standard~community_data_with_realm_with_introduced$introduced_species)

    Wilcoxon rank sum test with continuity correction

data:  community_data_with_realm_with_introduced$hwi_fdiv_standard by community_data_with_realm_with_introduced$introduced_species
W = 17606, p-value < 0.00000000000000022
alternative hypothesis: true location shift is not equal to 0
wilcox.test(community_data_with_realm_with_introduced$mass_fdiv_standard~community_data_with_realm_with_introduced$introduced_species)

    Wilcoxon rank sum test with continuity correction

data:  community_data_with_realm_with_introduced$mass_fdiv_standard by community_data_with_realm_with_introduced$introduced_species
W = 15028, p-value = 0.0000006706
alternative hypothesis: true location shift is not equal to 0

What families exist in which realms?

communities %>% 
  left_join(city_to_realm) %>% 
  mutate(family = gsub( " .*$", "", ebird_species_name)) %>%
  dplyr::select(family, core_realm) %>%
  distinct() %>%
  arrange(core_realm)
Joining with `by = join_by(city_id)`

Total urban families

communities %>% 
  mutate(family = gsub( " .*$", "", ebird_species_name)) %>%
  dplyr::select(family) %>%
  distinct() %>%
  arrange()

of which urban

communities %>% 
  filter(relative_abundance_proxy > 0) %>%
  mutate(family = gsub( " .*$", "", ebird_species_name)) %>%
  dplyr::select(family) %>%
  distinct() %>%
  arrange()

Summary metrics by introduced species

communities = read_csv(filename(COMMUNITY_OUTPUT_DIR, 'communities_for_analysis.csv'))
Rows: 2428 Columns: 7── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (5): city_name, ebird_species_name, seasonal, presence, origin
dbl (2): city_id, relative_abundance_proxy
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
city_introduced_species = communities %>% group_by(city_id) %>% summarise(number_of_species = n()) %>% left_join(
  communities %>% group_by(city_id) %>% filter(origin == 'Introduced') %>% summarise(number_of_introduced_species = n())
) %>% replace_na(list(number_of_introduced_species = 0))
Joining with `by = join_by(city_id)`
community_data_with_introductions = left_join(community_data, city_introduced_species)
Joining with `by = join_by(city_id)`
community_data_with_introductions$has_introduced_species = community_data_with_introductions$number_of_introduced_species > 0
community_data_with_introductions
communities %>% 
  filter(origin == 'Introduced') %>%
  dplyr::select(ebird_species_name) %>%
  group_by(ebird_species_name) %>%
  summarise(total_cities = n()) %>%
  arrange(desc(total_cities))
community_data_with_introductions[,c('mntd_standard', 'has_introduced_species')]
community_data_with_introductions %>% group_by(has_introduced_species) %>% summarise(
  total_cities = n(), 
  
  mean_mntd_std = mean(mntd_standard, na.rm = T),
  median_mntd_std = median(mntd_standard, na.rm = T),
  sd_mntd_std = sd(mntd_standard, na.rm = T),
  
  mean_mass_fdiv_std = mean(mass_fdiv_standard, na.rm = T),
  median_mass_fdiv_std = median(mass_fdiv_standard, na.rm = T),
  sd_mass_fdiv_std = sd(mass_fdiv_standard, na.rm = T),
  
  mean_gape_width_fdiv_std = mean(beak_width_fdiv_standard, na.rm = T),
  median_gape_width_fdiv_std = median(beak_width_fdiv_standard, na.rm = T),
  sd_gape_width_fdiv_std = sd(beak_width_fdiv_standard, na.rm = T),
  
  mean_handwing_index_fdiv_std = mean(hwi_fdiv_standard, na.rm = T),
  median_handwing_index_fdiv_std = median(hwi_fdiv_standard, na.rm = T),
  sd_handwing_index_fdiv_std = sd(hwi_fdiv_standard, na.rm = T)
)

MNTD

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = mntd_standard)) + geom_boxplot()

wilcox.test(mntd_standard ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  mntd_standard by has_introduced_species
W = 7925, p-value = 0.00001285
alternative hypothesis: true location shift is not equal to 0

There is a significant difference between the response of cities with introduced species (0.53±0.27) and those without (0.47±0.19) (p-value = 0.02).

Mass FDiv

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = mass_fdiv_standard)) + geom_boxplot()

wilcox.test(mass_fdiv_standard ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  mass_fdiv_standard by has_introduced_species
W = 15028, p-value = 0.0000006706
alternative hypothesis: true location shift is not equal to 0

There is a significant difference between the response of cities with introduced species (0.57±0.27) and those without (0.73±0.24) (p < 0.0001)

Beak Gape FDiv

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = beak_width_fdiv_standard)) + geom_boxplot()

wilcox.test(beak_width_fdiv_standard ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  beak_width_fdiv_standard by has_introduced_species
W = 8662, p-value = 0.0006884
alternative hypothesis: true location shift is not equal to 0

There is NOT a significant difference between the response of cities with introduced species (0.61±0.30) and those without (0.56±0.27)

HWI FDiv

ggplot(community_data_with_introductions, aes(x = has_introduced_species, y = hwi_fdiv_standard)) + geom_boxplot()

wilcox.test(hwi_fdiv_standard ~ has_introduced_species, community_data_with_introductions, na.action = 'na.omit')

    Wilcoxon rank sum test with continuity correction

data:  hwi_fdiv_standard by has_introduced_species
W = 17606, p-value < 0.00000000000000022
alternative hypothesis: true location shift is not equal to 0

There is a significant difference between the response of cities with introduced species (0.49±0.30) and those without (0.79±0.21) (p < 0.0001)

What proportion of cities in each realm have introduced species

community_data_with_introductions %>% left_join(city_to_realm) %>%
  group_by(core_realm) %>%
  summarise(
    total_cities = n(), 
    total_cities_with_introduced = sum(has_introduced_species), 
    total_cities_without_introduced = n() - sum(has_introduced_species)) %>%
  arrange(core_realm)
Joining with `by = join_by(city_id)`

Are any introduced species not also present in a city?

communities %>% 
  filter(origin == 'Introduced') %>% 
  filter(relative_abundance_proxy < 0.1)

What’s the average relative abundance of introduced species compared to native

communities %>% 
  group_by(origin) %>% 
  summarise(average_relative_abundance = mean(relative_abundance_proxy))
communities %>% 
  group_by(origin) %>% 
  filter(relative_abundance_proxy > 0) %>%
  summarise(average_relative_abundance = mean(relative_abundance_proxy))
communities %>% 
  group_by(origin) %>% 
  summarise(average_relative_abundance = mean(relative_abundance_proxy))

Create analysis data frame

geography = read_csv(filename(CITY_DATA_OUTPUT_DIR, 'geography.csv'))
Rows: 342 Columns: 26── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
dbl (26): city_id, city_avg_ndvi, city_avg_elevation, city_avg_temp, city_avg_min_monthly_temp, city_av...
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
names(geography)
 [1] "city_id"                       "city_avg_ndvi"                 "city_avg_elevation"           
 [4] "city_avg_temp"                 "city_avg_min_monthly_temp"     "city_avg_max_monthly_temp"    
 [7] "city_avg_monthly_temp"         "city_avg_rainfall"             "city_avg_max_monthly_rainfall"
[10] "city_avg_min_monthly_rainfall" "city_avg_soil_moisture"        "city_max_elev"                
[13] "city_min_elev"                 "city_elev_range"               "region_20km_avg_ndvi"         
[16] "region_20km_avg_elevation"     "region_20km_avg_soil_moisture" "region_20km_max_elev"         
[19] "region_20km_min_elev"          "region_20km_elev_range"        "region_50km_avg_ndvi"         
[22] "region_50km_avg_elevation"     "region_50km_avg_soil_moisture" "region_50km_max_elev"         
[25] "region_50km_min_elev"          "region_50km_elev_range"       
analysis_data = community_data_with_realm[,c('city_id', 'mntd_standard', 'mass_fdiv_standard', 'beak_width_fdiv_standard', 'hwi_fdiv_standard', 'core_realm')] %>% 
  left_join(city_points[,c('city_id', 'latitude', 'longitude')]) %>%
  left_join(community_data_with_introductions[,c('city_id', 'has_introduced_species')]) %>%
  left_join(geography) %>%
  left_join(spatial_var)
Joining with `by = join_by(city_id)`Joining with `by = join_by(city_id)`Joining with `by = join_by(city_id)`Joining with `by = join_by(city_id)`
analysis_data$abs_latitude = abs(analysis_data$latitude)
analysis_data$core_realm = factor(analysis_data$core_realm, levels = c('Palearctic', 'Nearctic', 'Neotropic', 'Afrotropic', 'Indomalayan', 'Australasia', 'Oceania'))
analysis_data$has_introduced_species = factor(analysis_data$has_introduced_species, level = c('FALSE', 'TRUE'), labels = c('No introduced species', 'Introduced species'))
model_data = function(df, dependant_var) {
  df[,c(dependant_var, 'core_realm', 'abs_latitude', 'longitude', 'has_introduced_species', 'city_avg_ndvi', 'city_avg_elevation', 'city_avg_temp', 'city_avg_min_monthly_temp', 'city_avg_max_monthly_temp', 'city_avg_monthly_temp', 'city_avg_rainfall', 'city_avg_max_monthly_rainfall', 'city_avg_min_monthly_rainfall', 'city_avg_soil_moisture', 'city_max_elev', 'city_min_elev', 'city_elev_range', 'region_20km_avg_ndvi', 'region_20km_avg_elevation', 'region_20km_avg_soil_moisture', 'region_20km_max_elev', 'region_20km_min_elev', 'region_20km_elev_range', 'region_50km_avg_ndvi', 'region_50km_avg_elevation', 'region_50km_avg_soil_moisture', 'region_50km_max_elev', 'region_50km_min_elev', 'region_50km_elev_range')]
}
model_data(analysis_data, 'mntd_standard')
names(analysis_data)
 [1] "city_id"                       "mntd_standard"                 "mass_fdiv_standard"           
 [4] "beak_width_fdiv_standard"      "hwi_fdiv_standard"             "core_realm"                   
 [7] "latitude"                      "longitude"                     "geometry"                     
[10] "has_introduced_species"        "city_avg_ndvi"                 "city_avg_elevation"           
[13] "city_avg_temp"                 "city_avg_min_monthly_temp"     "city_avg_max_monthly_temp"    
[16] "city_avg_monthly_temp"         "city_avg_rainfall"             "city_avg_max_monthly_rainfall"
[19] "city_avg_min_monthly_rainfall" "city_avg_soil_moisture"        "city_max_elev"                
[22] "city_min_elev"                 "city_elev_range"               "region_20km_avg_ndvi"         
[25] "region_20km_avg_elevation"     "region_20km_avg_soil_moisture" "region_20km_max_elev"         
[28] "region_20km_min_elev"          "region_20km_elev_range"        "region_50km_avg_ndvi"         
[31] "region_50km_avg_elevation"     "region_50km_avg_soil_moisture" "region_50km_max_elev"         
[34] "region_50km_min_elev"          "region_50km_elev_range"        "NMDS1"                        
[37] "NMDS2"                         "abs_latitude"                 

NMDS Spatial Helpers

analysis_data_nmds_coords = analysis_data[,c('NMDS1', 'NMDS2')]
coordinates(analysis_data_nmds_coords)  = ~ NMDS1 + NMDS2

analysis_data_nmds_nearneigh <- knearneigh(analysis_data_nmds_coords)
Warning: knearneigh: identical points foundWarning: knearneigh: kd_tree not available for identical points
analysis_data_nmds_neighbours <- knn2nb(analysis_data_nmds_nearneigh)
Warning: neighbour object has 76 sub-graphs

Polygons around realms in NMDS plot

cities_to_realms_nmds = read_csv(filename(CITY_DATA_OUTPUT_DIR, 'realms.csv')) %>% left_join(analysis_data) %>% filter(!is.na(NMDS1))
Rows: 337 Columns: 2── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (1): core_realm
dbl (1): city_id
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.Joining with `by = join_by(city_id, core_realm)`
unique(cities_to_realms_nmds$core_realm)
[1] "Nearctic"    "Neotropic"   "Palearctic"  "Afrotropic"  "Indomalayan" "Australasia"
realm_nmds_neartic_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Nearctic') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_neotropic_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Neotropic') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_palearctic_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Palearctic') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_afrotropic_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Afrotropic') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_indomalayan_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Indomalayan') %>% slice(chull(NMDS1, NMDS2))
realm_nmds_australasia_polygon = cities_to_realms_nmds %>% filter(core_realm == 'Australasia') %>% slice(chull(NMDS1, NMDS2))

polygon_line_type = 'dashed'
polygon_linewidth = 0.4

with_realms_nmds = function(g) {
  g + 
    geom_polygon(data = realm_nmds_neartic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_neotropic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_palearctic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_afrotropic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_indomalayan_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_nmds_australasia_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0)
}

Lat Long Spatial Helpers

analysis_data_latlong_coords = analysis_data[,c('longitude', 'latitude')]
coordinates(analysis_data_latlong_coords)  = ~ longitude + latitude

analysis_data_coords_nearneigh <- knearneigh(analysis_data_latlong_coords, longlat = TRUE)
analysis_data_neighbours <- knn2nb(analysis_data_coords_nearneigh)
Warning: neighbour object has 97 sub-graphs

Polygons around realms in lat long plot

cities_to_realms_latlong = read_csv(filename(CITY_DATA_OUTPUT_DIR, 'realms.csv')) %>% left_join(analysis_data) %>% filter(!is.na(latitude))
Rows: 337 Columns: 2── Column specification ───────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (1): core_realm
dbl (1): city_id
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.Joining with `by = join_by(city_id, core_realm)`
unique(cities_to_realms_latlong$core_realm)
[1] "Nearctic"    "Neotropic"   "Palearctic"  "Afrotropic"  "Indomalayan" "Australasia"
realm_latlong_neartic_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Nearctic') %>% slice(chull(latitude, longitude))
realm_latlong_neotropic_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Neotropic') %>% slice(chull(latitude, longitude))
realm_latlong_palearctic_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Palearctic') %>% slice(chull(latitude, longitude))
realm_latlong_afrotropic_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Afrotropic') %>% slice(chull(latitude, longitude))
realm_latlong_indomalayan_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Indomalayan') %>% slice(chull(latitude, longitude))
realm_latlong_australasia_polygon = cities_to_realms_latlong %>% filter(core_realm == 'Australasia') %>% slice(chull(latitude, longitude))

with_realms_latlong = function(g) {
  g + 
    geom_polygon(data = realm_latlong_neartic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_neotropic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_palearctic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_afrotropic_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_indomalayan_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0) +
    geom_polygon(data = realm_latlong_australasia_polygon, linewidth = polygon_linewidth, linetype = polygon_line_type, alpha = 0)
}

Check for spatial autocorrelation

MNTD

Lat/Long

with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = mntd_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$mntd_standard, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$mntd_standard  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.3361, p-value = 0.0000000000001099
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.529289710      -0.003257329       0.005269629 

NMDS

with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = mntd_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$mntd_standard, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$mntd_standard  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 6.5062, p-value = 0.00000000003854
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.444629830      -0.003257329       0.004738970 

FDiv Beak Width

Lat/Long

with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = beak_width_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$beak_width_fdiv_standard, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$beak_width_fdiv_standard  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.754, p-value = 0.000000000000004451
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.560232185      -0.003257329       0.005281006 

NMDS

with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = beak_width_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$beak_width_fdiv_standard, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$beak_width_fdiv_standard  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 8.0778, p-value = 0.0000000000000003298
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.553407999      -0.003257329       0.004749010 

FDiv HWI

Lat/Long

with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = hwi_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$hwi_fdiv_standard, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$hwi_fdiv_standard  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 9.7654, p-value < 0.00000000000000022
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.706636768      -0.003257329       0.005284486 

NMDS

with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = hwi_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$hwi_fdiv_standard, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$hwi_fdiv_standard  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 5.7044, p-value = 0.000000005839
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.389975146      -0.003257329       0.004752081 

FDiv Mass

Lat/Long

with_realms_latlong(ggplot(analysis_data, aes(x = latitude, y = longitude, colour = mass_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$mass_fdiv_standard, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  analysis_data$mass_fdiv_standard  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 9.159, p-value < 0.00000000000000022
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.661853721      -0.003257329       0.005273363 

NMDS

with_realms_nmds(ggplot(analysis_data, aes(x = NMDS1, y = NMDS2, colour = mass_fdiv_standard)) + geom_point() + standardised_colours_scale + labs(colour = "Standardised response"))

moran.test(analysis_data$mass_fdiv_standard, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  analysis_data$mass_fdiv_standard  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 6.2152, p-value = 0.0000000002563
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.424748274      -0.003257329       0.004742265 

Examine individual metrics

all_explanatories = c(
    'city_avg_ndvi', 'city_avg_elevation', 'city_avg_temp',
    'region_50km_avg_soil_moisture',
    'core_realmAfrotropic', 'core_realmAustralasia', 'core_realmIndomalayan', 'core_realmNearctic', 'core_realmNeotropic', 'core_realmPalearctic',
    'has_introduced_speciesNo introduced species', 'has_introduced_speciesIntroduced species'
)

all_explanatory_names = factor(
   c(
    'Avg. NDVI', 'Avg. Elevation', 'Avg. Temp.',
    'Avg. Soil Moisture',
    'Afrotropic', 'Australasia', 'Indomalayan', 'Nearctic', 'Neotropic', 'Palearctic',
    'Introduced Absent', 'Introduced Present'
  ), ordered = T
)

explanatory_dictionary = data.frame(explanatory = all_explanatories, explanatory_name = all_explanatory_names)
  
with_explanatory_type_labels = function(p) {
  p = p[p$explanatory != '(Intercept)',]
  explanatory_levels = all_explanatories[all_explanatories %in% p$explanatory]
  p$explanatory <- factor(p$explanatory, levels = explanatory_levels)
  
  p$type <- 'Realm'
  p$type[p$explanatory %in% c('city_avg_ndvi', 'city_avg_elevation', 'city_avg_temp')] <- 'City geography'
  p$type[p$explanatory %in% c('region_50km_avg_soil_moisture')] <- 'Regional (50km) geography'
  p$type[p$explanatory %in% c('has_introduced_speciesNo introduced species', 'has_introduced_speciesIntroduced species')] <- 'Introduced species'
  p
}

with_explanatory_names = function(p) {
  p %>% left_join(explanatory_dictionary) %>% arrange(desc(explanatory_name))
}

type_labels = function(p) {
  explanatory_levels = all_explanatories[all_explanatories %in% p$explanatory]
  p$explanatory <- factor(p$explanatory, levels = explanatory_levels)
  
  p$type <- 'Realm'
  p$type[p$explanatory %in% c('city_avg_ndvi', 'city_avg_elevation', 'city_avg_temp', 'city_avg_min_monthly_temp', 'city_avg_max_monthly_temp', 
    'city_avg_monthly_temp', 'city_avg_rainfall', 'city_avg_max_monthly_rainfall', 'city_avg_min_monthly_rainfall', 
    'city_avg_soil_moisture', 'city_max_elev', 'city_min_elev', 'city_elev_range')] <- 'City geography'
  p$type[p$explanatory %in% c('region_50km_avg_ndvi', 'region_50km_avg_elevation', 'region_50km_avg_soil_moisture', 'region_50km_max_elev', 
    'region_50km_min_elev', 'region_50km_elev_range')] <- 'Regional (50km) geography'
   p$type[p$explanatory %in% c('region_20km_avg_ndvi', 'region_20km_avg_elevation', 'region_20km_avg_soil_moisture', 'region_20km_max_elev', 
    'region_20km_min_elev', 'region_20km_elev_range')] <- 'Regional (20km) geography'
  p$type[p$explanatory %in% c('has_introduced_speciesNo introduced species', 'has_introduced_speciesIntroduced species')] <- 'Introduced species'
  p
}
explanatory_labels = c(
  'has_introduced_species'='Introduced species', 
  'has_introduced_speciesNo introduced species'='Introduced absent', 
  'has_introduced_speciesIntroduced species'='Introduced present',
  'city_avg_ndvi'='Average NDVI', 
  'city_avg_elevation'='Average elevation', 
  'city_avg_temp'='Average temperature', 
  'city_avg_min_monthly_temp'='Average minimum monthly temperature', 
  'city_avg_max_monthly_temp'='Average maximum monthly temperature', 
  'city_avg_monthly_temp'='Average monthly temperature', 
  'city_avg_rainfall'='Average rainfall', 
  'city_avg_max_monthly_rainfall'='Average maximum monthly rainfall', 
  'city_avg_min_monthly_rainfall'='Average minimum monthly rainfall', 
  'city_avg_soil_moisture'='Average soil moisture', 
  'city_max_elev'='Maximum elevation', 
  'city_min_elev'='Minimum elevation', 
  'city_elev_range'='Elevation range', 
  'region_20km_avg_ndvi'='Average NDVI', 
  'region_20km_avg_elevation'='Average elevation', 
  'region_20km_avg_soil_moisture'='Average soil moisture', 
  'region_20km_max_elev'='Maximum elevation', 
  'region_20km_min_elev'='Minimum elevation',
  'region_20km_elev_range'='Elevation range',
  'region_50km_avg_ndvi'='Average NDVI',
  'region_50km_avg_elevation'='Average elevation',
  'region_50km_avg_soil_moisture'='Average soil moisture', 
  'region_50km_max_elev'='Maximum elevation',
  'region_50km_min_elev'='Minimum elevation', 
  'region_50km_elev_range'='Elevation range',
  'abs_latitude' = 'Absolute latitude',
  'latitude' = 'Latitude',
  'longitude' = 'Longitude',
  'core_realmAfrotropic' = 'Afrotropical', 
  'core_realmAustralasia' = 'Austaliasian', 
  'core_realmIndomalayan' = 'Indomalayan', 
  'core_realmNearctic' = 'Nearctic', 
  'core_realmNeotropic' = 'Neotropical',
  'core_realmPalearctic' = 'Palearctic',
  'core_realmOceania' = 'Oceanical')
create_formula = function(response_var) {
  as.formula(paste(response_var, '~ core_realm + city_avg_ndvi + city_avg_elevation + city_avg_temp + region_50km_avg_soil_moisture + has_introduced_species'))
}

Helper plot functions

geom_map = function(map_sf, title) {
  norm_mntd_analysis_geo = ggplot() + 
    geom_sf(data = world_map, aes(geometry = geometry)) +
    map_sf +
    standardised_colours_scale +
    labs(colour = 'Standardised\nResponse') +
    theme_bw() +
    theme(legend.position="bottom")
}

Helper Dredge functions

# Taken from MuMIN package
# https://rdrr.io/cran/MuMIn/src/R/averaging.R
# https://rdrr.io/cran/MuMIn/src/R/model.avg.R

.coefarr.avg <-
  function(cfarr, weight, revised.var, full, alpha) {   
    weight <- weight / sum(weight)
    nCoef <- dim(cfarr)[3L]
    if(full) {
      nas <- is.na(cfarr[, 1L, ]) & is.na(cfarr[, 2L, ])
      cfarr[, 1L, ][nas] <- cfarr[, 2L, ][nas] <- 0
      #cfarr[, 1L:2L, ][is.na(cfarr[, 1L:2L, ])] <- 0
      if(!all(is.na(cfarr[, 3L, ])))
        cfarr[ ,3L, ][is.na(cfarr[ , 3L, ])] <- Inf
    }
    
    avgcoef <- array(dim = c(nCoef, 5L),
                     dimnames = list(dimnames(cfarr)[[3L]], c("Estimate",
                                                              "Std. Error", "Adjusted SE", "Lower CI", "Upper CI")))
    for(i in seq_len(nCoef))
      avgcoef[i, ] <- par.avg(cfarr[, 1L, i], cfarr[, 2L, i], weight,
                              df = cfarr[, 3L, i], alpha = alpha, revised.var = revised.var)
    
    avgcoef[is.nan(avgcoef)] <- NA
    return(avgcoef)
  }

.makecoefmat <- function(cf) {
  no.ase <- all(is.na(cf[, 3L]))
  z <- abs(cf[, 1L] / cf[, if(no.ase) 2L else 3L])
  pval <- 2 * pnorm(z, lower.tail = FALSE)
  cbind(cf[, if(no.ase) 1L:2L else 1L:3L, drop = FALSE],
        `z value` = z, `Pr(>|z|)` = zapsmall(pval))
}

# Generate model selections using lmer, dredge, and model.avg
# `forumla` : a two-sided linear formula object describing both the fixed-effects and random-effects part of the model
# `data` : the data frame containing the variables from the formula
# `aic_delta` : the AIC delta to use for selecting models in model average
model_average <- function(formula, data, aic_delta = 20) {
  model <- lm(
    formula,
    data=data
  )
  dredge_result <- dredge(model)
  summary(model.avg(dredge_result, subset = delta < aic_delta))
}

# Create a summary data frame containing the selected variables from a model
# `model_sum` : The model summary output from `model_average`
model_summary <- function(model_sum) {
  .column_name <- function(postfix) {
    postfix
  }
  
  # just return the estimate and p value
  weight <- model_sum$msTable[, 5L]
  
  coefmat.full <- as.data.frame(.makecoefmat(.coefarr.avg(model_sum$coefArray, weight,
                                                          attr(model_sum, "revised.var"), TRUE, 0.05)))
  
  coefmat.subset <-
    as.data.frame(.makecoefmat(.coefarr.avg(model_sum$coefArray, weight,
                                            attr(model_sum, "revised.var"), FALSE, 0.05)))
  
  
  coefmat.subset <- coefmat.subset[-c(1), c(1, 2, 5)]
  names(coefmat.subset) <- c(.column_name("estimate"), .column_name("error"), .column_name("p"))
  coefmat.subset <- tibble::rownames_to_column(coefmat.subset, "explanatory")
  coefmat.subset$model = 'subset'
  
  coefmat.full <- coefmat.full[-c(1), c(1, 2, 5)]
  names(coefmat.full) <- c(.column_name("estimate"), .column_name("error"), .column_name("p"))
  coefmat.full <- tibble::rownames_to_column(coefmat.full, "explanatory")
  coefmat.full$model = 'full'
  
  rbind(coefmat.full, coefmat.subset)
}
plot_dredge_result = function(result_table) {
  p = result_table[result_table$model == 'full',]
  p = type_labels(p)

  ggplot(p, aes(y = explanatory, x = estimate, colour = type)) + 
    geom_line() +
    geom_point() +
    geom_errorbar(aes(xmin=estimate-error, xmax=estimate+error), width=.2,
                   position=position_dodge(0.05)) +
    scale_y_discrete(
      limits = rev(levels(p$explanatory)), 
      labels = explanatory_labels) +
    scale_colour_manual(
      values = c(realm_colour, city_geography_colour, regional_50km_geography_colour, regional_20km_geography_colour, introduced_species_colour), 
      breaks = c('Realm', 'City geography', 'Regional (50km) geography', 'Regional (20km) geography', 'Introduced species')) +
    theme_bw() +
    geom_vline(xintercept=0, linetype="dotted") +
    guides(colour=guide_legend(title="Predictor type")) + xlab('Difference in response from 0\nhabitat filtering (< 0) and competitive interactions (> 0)\n± Standard Error') + ylab('Predictor') +
    theme(legend.justification = "top")
}

GLS Spatial Helpers

gls_method = "ML"

spatial_model = function(formula, correlation) {
  gls(
    formula, 
    data = analysis_data, 
    correlation = correlation, 
    method = gls_method
  )
}

plot_spatial_result = function(model_result) {
  model_summary = summary(model_result)
  result_table = as.data.frame(model_summary$tTable)
  result_table$explanatory = rownames(result_table)
  
  result_table = result_table %>% with_explanatory_type_labels() %>% with_explanatory_names()
  
  ggplot2::ggplot(result_table, ggplot2::aes(y=factor(explanatory_name, level = all_explanatory_names, ordered = T), x=Value, colour = type)) + 
    ggplot2::geom_line() +
    ggplot2::geom_point() +
    ggplot2::geom_errorbar(ggplot2::aes(xmin=Value-Std.Error, xmax=Value+Std.Error), width=.2,
                   position=ggplot2::position_dodge(0.05)) +
    ggplot2::theme_bw() +
    ggplot2::geom_vline(xintercept=0, linetype="dotted") +
    ggplot2::theme(legend.justification = "top") +
    ylab('Predictor') +
    guides(colour=guide_legend(title="Predictor type")) + xlab('Difference in response from 0\nhabitat filtering (< 0) and competitive interactions (> 0)\n± Standard Error') +
    scale_colour_manual(
      values = c(realm_colour, city_geography_colour, regional_50km_geography_colour, introduced_species_colour), 
      breaks = c('Realm', 'City geography', 'Regional (50km) geography', 'Introduced species')) +
    scale_y_discrete(limits = rev(all_explanatory_names[all_explanatory_names %in% result_table$explanatory_name]))
}

Choose best spatial correlation function

AIC(spatial_model(create_formula('mntd_standard'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 662.3448
AIC(spatial_model(create_formula('mntd_standard'), corLin(form = ~ latitude + longitude)))
[1] 668.183
AIC(spatial_model(create_formula('mntd_standard'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 653.2191
AIC(spatial_model(create_formula('mntd_standard'), corExp(form = ~ latitude + longitude)))
[1] 656.8138
AIC(spatial_model(create_formula('mntd_standard'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 658.2282
AIC(spatial_model(create_formula('mntd_standard'), corGaus(form = ~ latitude + longitude)))
[1] 662.8906
AIC(spatial_model(create_formula('mntd_standard'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 650.6309
AIC(spatial_model(create_formula('mntd_standard'), corRatio(form = ~ latitude + longitude)))
[1] 655.0259
AIC(spatial_model(create_formula('mntd_standard'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 660.0803
AIC(spatial_model(create_formula('mntd_standard'), corSpher(form = ~ latitude + longitude)))
[1] 664.3069

MNTD: corRatio with NMDS + lat/long

AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 793.8812
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corLin(form = ~ latitude + longitude)))
[1] 793.8812
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 789.9986
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corExp(form = ~ latitude + longitude)))
[1] 790.7424
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 794.1143
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corGaus(form = ~ latitude + longitude)))
[1] 794.1127
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 791.6815
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corRatio(form = ~ latitude + longitude)))
[1] 791.833
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 794.1625
AIC(spatial_model(create_formula('beak_width_fdiv_standard'), corSpher(form = ~ latitude + longitude)))
[1] 794.1625

Beak width: corExp with NMDS + lat/long

AIC(spatial_model(create_formula('hwi_fdiv_standard'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 695.3483
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corLin(form = ~ latitude + longitude)))
[1] 699.9416
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 667.3598
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corExp(form = ~ latitude + longitude)))
[1] 672.0891
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 705.4322
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corGaus(form = ~ latitude + longitude)))
[1] 709.9593
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 686.368
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corRatio(form = ~ latitude + longitude)))
[1] 691.6763
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 690.2192
AIC(spatial_model(create_formula('hwi_fdiv_standard'), corSpher(form = ~ latitude + longitude)))
[1] 696.1892

HWI: corExp with NMDS + lat/long

AIC(spatial_model(create_formula('mass_fdiv_standard'), corLin(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 777.7153
AIC(spatial_model(create_formula('mass_fdiv_standard'), corLin(form = ~ latitude + longitude)))
[1] 776.4599
AIC(spatial_model(create_formula('mass_fdiv_standard'), corExp(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 752.6284
AIC(spatial_model(create_formula('mass_fdiv_standard'), corExp(form = ~ latitude + longitude)))
[1] 755.2302
AIC(spatial_model(create_formula('mass_fdiv_standard'), corGaus(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 786.4347
AIC(spatial_model(create_formula('mass_fdiv_standard'), corGaus(form = ~ latitude + longitude)))
[1] 784.9074
AIC(spatial_model(create_formula('mass_fdiv_standard'), corRatio(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 766.6933
AIC(spatial_model(create_formula('mass_fdiv_standard'), corRatio(form = ~ latitude + longitude)))
[1] 766.7129
AIC(spatial_model(create_formula('mass_fdiv_standard'), corSpher(form = ~ NMDS1 + NMDS2 + latitude + longitude)))
[1] 780.5551
AIC(spatial_model(create_formula('mass_fdiv_standard'), corSpher(form = ~ latitude + longitude)))
[1] 780.1225

Mass: corExp with NMDS + lat/long

correlation_formula = as.formula('~ NMDS1 + NMDS2 + latitude + longitude')

correlation_function_fdiv = function() {
  corExp(form = correlation_formula)
}

correlation_function_mntd = function() {
  corRatio(form = correlation_formula)
}

MNTD

std_mntd_analysis_geo_plot = geom_map(geom_sf(data = analysis_data, aes(color = mntd_standard, geometry = geometry)), 'MNTD')
std_mntd_analysis_geo_plot

std_mntd_analysis_data = model_data(analysis_data[!is.na(analysis_data$mntd_standard),], 'mntd_standard')
std_mntd_analysis_formula = create_formula('mntd_standard')
std_mntd_analysis_result <- model_average(std_mntd_analysis_formula, std_mntd_analysis_data)
Fixed term is "(Intercept)"
std_mntd_analysis_result_table = model_summary(std_mntd_analysis_result)
std_mntd_analysis_result_table
std_mntd_analysis_pred_plot = plot_dredge_result(std_mntd_analysis_result_table)
std_mntd_analysis_pred_plot

Do the residuals still contain spatial autocorrelation from a fitted lm?

std_mntd_lm = lm(std_mntd_analysis_formula, std_mntd_analysis_data)
moran.test(std_mntd_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_mntd_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 3.8174, p-value = 0.00006743
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.273851651      -0.003257329       0.005269469 
moran.test(std_mntd_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_mntd_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 2.9313, p-value = 0.001688
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.198532827      -0.003257329       0.004738829 
mntd_spatial_model = spatial_model(std_mntd_analysis_formula, correlation_function_mntd())
moran.test(mntd_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  mntd_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 4.0185, p-value = 0.00002929
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.288487485      -0.003257329       0.005270882 
moran.test(mntd_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  mntd_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.1254, p-value = 0.0008877
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.211923502      -0.003257329       0.004740076 
std_mntd_analysis_pred_spatial_plot = plot_spatial_result(mntd_spatial_model)
Joining with `by = join_by(explanatory)`
std_mntd_analysis_pred_spatial_plot

Gape width - FDiv

std_gape_fdiv_analysis_geo_plot = geom_map(geom_sf(data = analysis_data, aes(color = beak_width_fdiv_standard, geometry = geometry)), 'Beak Width FDiv')
std_gape_fdiv_analysis_geo_plot

std_gape_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$beak_width_fdiv_standard),], 'beak_width_fdiv_standard')
std_gape_fdiv_analysis_formula = create_formula('beak_width_fdiv_standard')
std_gape_fdiv_analysis_result <- model_average(std_gape_fdiv_analysis_formula, std_gape_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_gape_fdiv_analysis_result_table = model_summary(std_gape_fdiv_analysis_result)
std_gape_fdiv_analysis_result_table
std_gape_fdiv_analysis_pred_plot = plot_dredge_result(std_gape_fdiv_analysis_result_table)
std_gape_fdiv_analysis_pred_plot

Do the residuals still contain spatial autocorrelation from a fitted lm?

std_gape_fdiv_lm = lm(std_gape_fdiv_analysis_formula, std_gape_fdiv_analysis_data)
moran.test(std_gape_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_gape_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 3.55, p-value = 0.0001926
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.254212474      -0.003257329       0.005260213 
moran.test(std_gape_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_gape_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 1.6631, p-value = 0.04815
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.111128951      -0.003257329       0.004730661 
std_gape_fdiv_spatial_model = spatial_model(std_gape_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(std_gape_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_gape_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 3.6108, p-value = 0.0001526
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.258639556      -0.003257329       0.005260832 
moran.test(std_gape_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_gape_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 1.8619, p-value = 0.03131
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.124813501      -0.003257329       0.004731207 
std_gape_fdiv_analysis_pred_spatial_plot = plot_spatial_result(std_gape_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
std_gape_fdiv_analysis_pred_spatial_plot

HWI - FDiv

std_hwi_fdiv_analysis_geo_plot = geom_map(geom_sf(data = analysis_data, aes(color = hwi_fdiv_standard, geometry = geometry)), 'HWI FDiv')
std_hwi_fdiv_analysis_geo_plot

std_hwi_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$hwi_fdiv_standard),], 'hwi_fdiv_standard')
std_hwi_fdiv_analysis_formula = create_formula('hwi_fdiv_standard')
std_hwi_fdiv_analysis_result <- model_average(std_hwi_fdiv_analysis_formula, std_hwi_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_hwi_fdiv_analysis_result_table = model_summary(std_hwi_fdiv_analysis_result)
std_hwi_fdiv_analysis_result_table
std_hwi_fdiv_analysis_pred_plot = plot_dredge_result(std_hwi_fdiv_analysis_result_table)
std_hwi_fdiv_analysis_pred_plot

std_hwi_fdiv_lm = lm(std_hwi_fdiv_analysis_formula, std_hwi_fdiv_analysis_data)
moran.test(std_hwi_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_hwi_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 6.197, p-value = 0.0000000002877
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.445978540      -0.003257329       0.005255093 
moran.test(std_hwi_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_hwi_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.7792, p-value = 0.00007868
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.256549224      -0.003257329       0.004726143 
std_hwi_fdiv_spatial_model = spatial_model(std_hwi_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(std_hwi_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_hwi_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.2343, p-value = 0.000000000000234
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.521468855      -0.003257329       0.005261042 
moran.test(std_hwi_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_hwi_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 3.3574, p-value = 0.0003935
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.227679202      -0.003257329       0.004731393 
std_hwi_fdiv_analysis_pred_spatial_plot = plot_spatial_result(std_hwi_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
std_hwi_fdiv_analysis_pred_spatial_plot

Mass - FDiv

std_mass_fdiv_analysis_geo_plot = geom_map(geom_sf(data = analysis_data, aes(color = mass_fdiv_standard, geometry = geometry)), 'Mass FDiv')
std_mass_fdiv_analysis_geo_plot

std_mass_fdiv_analysis_data = model_data(analysis_data[!is.na(analysis_data$mass_fdiv_standard),], 'mass_fdiv_standard')
std_mass_fdiv_analysis_formula = create_formula('mass_fdiv_standard')
std_mass_fdiv_analysis_result <- model_average(std_mass_fdiv_analysis_formula, std_mass_fdiv_analysis_data)
Fixed term is "(Intercept)"
std_mass_fdiv_analysis_result_table = model_summary(std_mass_fdiv_analysis_result)
std_mass_fdiv_analysis_result_table
std_mass_fdiv_analysis_pred_plot = plot_dredge_result(std_mass_fdiv_analysis_result_table)
std_mass_fdiv_analysis_pred_plot

std_mass_fdiv_lm = lm(std_mass_fdiv_analysis_formula, std_mass_fdiv_analysis_data)
moran.test(std_mass_fdiv_lm$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_mass_fdiv_lm$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.4464, p-value = 0.00000000000004797
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.536458696      -0.003257329       0.005253399 
moran.test(std_mass_fdiv_lm$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_mass_fdiv_lm$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 4.7703, p-value = 0.0000009196
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.324636672      -0.003257329       0.004724648 
std_mass_fdiv_spatial_model = spatial_model(std_mass_fdiv_analysis_formula, correlation_function_fdiv())
moran.test(std_mass_fdiv_spatial_model$residuals, nb2listw(analysis_data_neighbours))

    Moran I test under randomisation

data:  std_mass_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_neighbours)    

Moran I statistic standard deviate = 7.9834, p-value = 0.0000000000000007117
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.575429652      -0.003257329       0.005254232 
moran.test(std_mass_fdiv_spatial_model$residuals, nb2listw(analysis_data_nmds_neighbours))

    Moran I test under randomisation

data:  std_mass_fdiv_spatial_model$residuals  
weights: nb2listw(analysis_data_nmds_neighbours)    

Moran I statistic standard deviate = 5.2794, p-value = 0.00000006481
alternative hypothesis: greater
sample estimates:
Moran I statistic       Expectation          Variance 
      0.359654511      -0.003257329       0.004725382 
std_mass_fdiv_analysis_pred_spatial_plot = plot_spatial_result(std_mass_fdiv_spatial_model)
Joining with `by = join_by(explanatory)`
std_mass_fdiv_analysis_pred_spatial_plot

Create plot of differences in process response

pred_legend <- ggpubr::get_legend(
  # create some space to the left of the legend
  std_hwi_fdiv_analysis_pred_plot + theme(legend.box.margin = margin(0, 0, 0, 0)) + guides(colour=guide_legend(ncol=2)) + labs(color = "Predictor type")
)
`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?
geo_legend <- ggpubr::get_legend(
  # create some space to the left of the legend
  std_mass_fdiv_analysis_geo_plot + theme(legend.box.margin = margin(-80, 0, 0, 12), legend.title.position = "top", legend.key.width = unit(10, 'mm')) + labs(color = "Standardised response")
)

legend = plot_grid(
  geo_legend,
  pred_legend, 
  nrow = 1
)
legend

plot_grid(
  plot_grid(
    std_mntd_analysis_geo_plot + theme(legend.position="none"), 
    std_mntd_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrow = 1
  ) + draw_label("MNTD", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_gape_fdiv_analysis_geo_plot + theme(legend.position="none"), 
    std_gape_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrow = 1
  ) + draw_label("Beak Width", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_hwi_fdiv_analysis_geo_plot + theme(legend.position="none"), 
    std_hwi_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrow = 1
  ) + draw_label("HWI", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_mass_fdiv_analysis_geo_plot + theme(legend.position="none"), 
    std_mass_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrow = 1
  ) + draw_label("Mass", size = 16, angle = 90, x = 0.01, y = 0.5), 
  legend,
  nrow = 5
)
ggsave(filename(FIGURES_OUTPUT_DIR, 'process_response.jpg'), width = 3000, height = 3200, units = 'px')
pred_fig_legend <- ggpubr::get_legend(
  # create some space to the left of the legend
  std_hwi_fdiv_analysis_pred_plot + theme(legend.box.margin = margin(0, 0, 0, -20)) + guides(colour=guide_legend(ncol=2)) + labs(color = "Predictor type")
)
`geom_line()`: Each group consists of only one observation.
ℹ Do you need to adjust the group aesthetic?
geo_fig_legend <- ggpubr::get_legend(
  # create some space to the left of the legend
  std_mass_fdiv_analysis_geo_plot + theme(legend.box.margin = margin(0, 0, 0, 0), legend.title.position = "top", legend.key.width = unit(10, 'mm')) + labs(color = "Standardised response")
)

remove_x_scale =  scale_x_continuous(name = '', limits = c(-3, 3))
theme_no_legend = theme(legend.position="none", panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))

fig2 = grid.arrange(
  # row 1 - titles
  arrangeGrob(grid::textGrob('A) Standardised response by city', x = 0.1, hjust = 0, gp=gpar(fontface="bold"))),
  arrangeGrob(grid::textGrob('B) Standardised response predictors', x = 0.1, hjust = 0, gp=gpar(fontface="bold"))),
  # row 2
  arrangeGrob(
    std_mntd_analysis_geo_plot + theme_no_legend, 
    left = "MNTD"
  ),
  arrangeGrob(
    std_mntd_analysis_pred_plot + theme_no_legend + remove_x_scale + ylab('')
  ),
  # row 3
  arrangeGrob(std_gape_fdiv_analysis_geo_plot + theme_no_legend, left = "Beak Width"),
  arrangeGrob(
    std_gape_fdiv_analysis_pred_plot + theme_no_legend + remove_x_scale + ylab('')
  ),
  # row 4
  arrangeGrob(std_hwi_fdiv_analysis_geo_plot + theme_no_legend, left = "HWI"),
  arrangeGrob(
    std_hwi_fdiv_analysis_pred_plot + theme_no_legend + remove_x_scale + ylab('')
  ),
  # row 5
  arrangeGrob(std_mass_fdiv_analysis_geo_plot + theme_no_legend, left = "Mass"),
  arrangeGrob(
    std_mass_fdiv_analysis_pred_plot + theme_no_legend + remove_x_scale + ylab('')
  ),
  # row 6 - legends
  arrangeGrob(geo_fig_legend),
  arrangeGrob(pred_fig_legend),
  heights = c(0.5, 2, 2, 2, 2, 1.25),
  nrow = 6
  )

jpeg(filename(FIGURES_OUTPUT_DIR, 'figure2.jpg'), width = 183, height = 180, units = 'mm', res = 450)
grid.arrange(
  arrangeGrob(fig2),
  ncol = 1
  )
dev.off()
null device 
          1 
pdf(filename(FIGURES_OUTPUT_DIR, 'figure2.pdf'), width = 12, height = 12, family = "Helvetica")
grid.arrange(
  arrangeGrob(fig2),
  ncol = 1
  )
dev.off()
null device 
          1 

Compare to spatial model

plot_grid(
  plot_grid(
    ggdraw() + 
    draw_label(
      "Spatial Model",
      fontface = 'bold',
      x = 0,
      hjust = 0
    ),
    ggdraw() + 
    draw_label(
      "Dredge Result",
      fontface = 'bold',
      x = 0,
      hjust = 0
    )
  ),
  plot_grid(
    std_mntd_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    std_mntd_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrow = 1
  ) + draw_label("MNTD", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_gape_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''),  
    std_gape_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrow = 1
  ) + draw_label("Beak Width", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_hwi_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    std_hwi_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrow = 1
  ) + draw_label("HWI", size = 16, angle = 90, x = 0.01, y = 0.5),
  plot_grid(
    std_mass_fdiv_analysis_pred_spatial_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    std_mass_fdiv_analysis_pred_plot + theme(legend.position="none") + scale_x_continuous(name = '', limits = c(-3, 3)) + ylab(''), 
    nrow = 1
  ) + draw_label("Mass", size = 16, angle = 90, x = 0.01, y = 0.5), 
  nrow = 5
)
ggsave(filename(FIGURES_OUTPUT_DIR, 'process_response_vs_spatial.jpg'), width = 3000, height = 3200, units = 'px')

Compare metrics against each other

ggplot(analysis_data, aes(x = beak_width_fdiv_standard, y = mntd_standard, colour = core_realm)) + 
  geom_point() +
  ylab("MNTD") + 
  xlab("Beak Width FDiv") +
  theme_bw() + labs(color = "Realm")
ggplot(analysis_data, aes(x = hwi_fdiv_standard, y = mntd_standard, colour = core_realm)) + 
  geom_point() +
  ylab("MNTD") + 
  xlab("HWI FDiv") +
  theme_bw() + labs(color = "Realm")
ggplot(analysis_data, aes(x = hwi_fdiv_standard, y = beak_width_fdiv_standard, colour = core_realm)) + 
  geom_point() +
  ylab("Beak Width FDiv") + 
  xlab("HWI FDiv") +
  theme_bw() + labs(color = "Realm")
mntd_fdiv_analysis = analysis_data %>% 
  dplyr::select(city_id,  mntd_standard, hwi_fdiv_standard, beak_width_fdiv_standard, mass_fdiv_standard) %>%
  left_join(community_summary) %>%
  mutate(urban_pool_perc = urban_pool_size * 100 / regional_pool_size)
mntd_fdiv_analysis
ggpairs(mntd_fdiv_analysis %>% dplyr::select(mntd_standard, hwi_fdiv_standard, beak_width_fdiv_standard, mass_fdiv_standard, regional_pool_size, urban_pool_size, urban_pool_perc), columnLabels = c('MNTD', 'HWI FD', 'Bk FD', 'Mss FD', 'Region Rich.', 'Urban Rich.', '% Urban'))
ggsave(filename(FIGURES_OUTPUT_DIR, 'appendix_standarised_correlation.jpg'))
LS0tCnRpdGxlOiAiTWV0cmljcyBmb3IgYXNzZXNzaW5nIGNvbW11bml0eSBhc3NlbWJseSBwcm9jZXNzZXMiCm91dHB1dDogaHRtbF9ub3RlYm9vawpiaWJsaW9ncmFwaHk6IC4uL3JlZi5iaWIgIAotLS0KCmBgYHtyfQpzb3VyY2UoJy4uL2Vudi5SJykKYGBgCgpgYGB7cn0KY29tbXVuaXR5X2RhdGEgPSByZWFkX2NzdihmaWxlbmFtZShDT01NVU5JVFlfT1VUUFVUX0RJUiwgJ2NvbW11bml0eV9hc3NlbWJseV9tZXRyaWNzX3VzaW5nX3JlbGF0aXZlX2FidW5kYW5jZS5jc3YnKSkKaGVhZChjb21tdW5pdHlfZGF0YSkKY29sbmFtZXMoY29tbXVuaXR5X2RhdGEpCmBgYAoKYGBge3J9Cm1pbihjb21tdW5pdHlfZGF0YSRtbnRkX3N0YW5kYXJkKQptYXgoY29tbXVuaXR5X2RhdGEkbW50ZF9zdGFuZGFyZCkKbWluKGNvbW11bml0eV9kYXRhJGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCkKbWF4KGNvbW11bml0eV9kYXRhJGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCkKbWluKGNvbW11bml0eV9kYXRhJGh3aV9mZGl2X3N0YW5kYXJkKQptYXgoY29tbXVuaXR5X2RhdGEkaHdpX2ZkaXZfc3RhbmRhcmQpCm1pbihjb21tdW5pdHlfZGF0YSRtYXNzX2ZkaXZfc3RhbmRhcmQpCm1heChjb21tdW5pdHlfZGF0YSRtYXNzX2ZkaXZfc3RhbmRhcmQpCmBgYAoKCkpvaW4gb24gcmVhbG1zCmBgYHtyfQpjaXR5X3RvX3JlYWxtID0gcmVhZF9jc3YoZmlsZW5hbWUoQ0lUWV9EQVRBX09VVFBVVF9ESVIsICdyZWFsbXMuY3N2JykpCmNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0gPSBsZWZ0X2pvaW4oY29tbXVuaXR5X2RhdGEsIGNpdHlfdG9fcmVhbG0pCmBgYAoKQ2l0aWVzIGFzIHBvaW50cwpgYGB7cn0KY2l0eV9wb2ludHMgPSBzdF9jZW50cm9pZChyZWFkX3NmKGZpbGVuYW1lKENJVFlfREFUQV9PVVRQVVRfRElSLCAnY2l0eV9zZWxlY3Rpb24uc2hwJykpKSAlPiUgbGVmdF9qb2luKGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0pCmNpdHlfcG9pbnRzX2Nvb3JkcyA9IHN0X2Nvb3JkaW5hdGVzKGNpdHlfcG9pbnRzKQpjaXR5X3BvaW50cyRsYXRpdHVkZSA9IGNpdHlfcG9pbnRzX2Nvb3Jkc1ssMV0KY2l0eV9wb2ludHMkbG9uZ2l0dWRlID0gY2l0eV9wb2ludHNfY29vcmRzWywyXQpgYGAKICAKYGBge3J9CndvcmxkX21hcCA9IHJlYWRfY291bnRyeV9ib3VuZGFyaWVzKCkKYGBgCgpMb2FkIGNvbW11bml0eSBkYXRhLCBhbmQgY3JlYXRlIGxvbmcgZm9ybWF0IHZlcnNpb24KYGBge3J9CmNvbW11bml0aWVzID0gcmVhZF9jc3YoZmlsZW5hbWUoQ09NTVVOSVRZX09VVFBVVF9ESVIsICdjb21tdW5pdGllc19mb3JfYW5hbHlzaXMuY3N2JykpCmNvbW11bml0aWVzCmBgYAoKYGBge3J9CmNvbW11bml0eV9zdW1tYXJ5ID0gY29tbXVuaXRpZXMgJT4lIGdyb3VwX2J5KGNpdHlfaWQpICU+JSBzdW1tYXJpc2UocmVnaW9uYWxfcG9vbF9zaXplID0gbigpLCB1cmJhbl9wb29sX3NpemUgPSBzdW0ocmVsYXRpdmVfYWJ1bmRhbmNlX3Byb3h5ID4gMCkpCmNvbW11bml0eV9zdW1tYXJ5CmBgYAoKTG9hZCB0cmFpdCBkYXRhCmBgYHtyfQp0cmFpdHMgPSByZWFkX2NzdihmaWxlbmFtZShUQVhPTk9NWV9PVVRQVVRfRElSLCAndHJhaXRzX2ViaXJkLmNzdicpKQpoZWFkKHRyYWl0cykKYGBgCkxvYWQgc3BhdGlhbCB2YXIKYGBge3J9CnNwYXRpYWxfdmFyID0gcmVhZF9jc3YoZmlsZW5hbWUoQ09NTVVOSVRZX09VVFBVVF9ESVIsICdzcGF0aWFsX3Zhci5jc3YnKSkgJT4lIGZpbHRlcihjaXR5X2lkICVpbiUgY29tbXVuaXR5X3N1bW1hcnkkY2l0eV9pZCkKc3BhdGlhbF92YXIKYGBgCgojIFN1bW1hcnkgbWV0cmljcyBieSBSZWFsbQpgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMgPSBmdW5jdGlvbihuYW1lLCBkZikgewogIGNhdChwYXN0ZSgKICAgIHRlc3RfdmFsdWVfd2lsY294KHBhc3RlKG5hbWUsICdNTlREJyksIGRmJG1udGRfc3RhbmRhcmQpLAogICAgdGVzdF92YWx1ZV93aWxjb3gocGFzdGUobmFtZSwgJ0JlYWsgV2lkdGggRkRpdicpLCBkZiRiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQpLAogICAgdGVzdF92YWx1ZV93aWxjb3gocGFzdGUobmFtZSwgJ0hXSSBGRGl2JyksIGRmJGh3aV9mZGl2X3N0YW5kYXJkKSwKICAgIHRlc3RfdmFsdWVfd2lsY294KHBhc3RlKG5hbWUsICdNYXNzIEZEaXYnKSwgZGYkbWFzc19mZGl2X3N0YW5kYXJkKSwKICAgIHBhc3RlKCdOJywgbnJvdyhkZikpLAogICAgc2VwID0gIlxuIikpCn0KYGBgCgpgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMoJ0dsb2JhbCcsIGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0pCmBgYAoKYGBge3J9CnVuaXF1ZShjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0pCmBgYAoKYGBge3J9CnRlc3RfcmVxdWlyZWRfdmFsdWVzKCdOZWFyY3RpYycsIGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1bY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRjb3JlX3JlYWxtID09ICdOZWFyY3RpYycsXSkKYGBgCgpgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMoJ05lb3Ryb3BpYycsIGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1bY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRjb3JlX3JlYWxtID09ICdOZW90cm9waWMnLF0pCmBgYAoKYGBge3J9CnRlc3RfcmVxdWlyZWRfdmFsdWVzKCdQYWxlYXJjdGljJywgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbVtjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0gPT0gJ1BhbGVhcmN0aWMnLF0pCmBgYAoKYGBge3J9CnRlc3RfcmVxdWlyZWRfdmFsdWVzKCdBZnJvdHJvcGljJywgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbVtjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0gPT0gJ0Fmcm90cm9waWMnLF0pCmBgYAoKYGBge3J9CnRlc3RfcmVxdWlyZWRfdmFsdWVzKCdJbmRvbWFsYXlhbicsIGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1bY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRjb3JlX3JlYWxtID09ICdJbmRvbWFsYXlhbicsXSkKYGBgCgpgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMoJ0F1c3RyYWxhc2lhJywgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbVtjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0gPT0gJ0F1c3RyYWxhc2lhJyxdKQpgYGAKCiMjIEhvdyBzaWduaWZpY2FudCBhcmUgdGhvc2UgZGlmZmVyZW5jZXM6CmBgYHtyfQprcnVza2FsLnRlc3QobW50ZF9zdGFuZGFyZH5jb3JlX3JlYWxtLCBkYXRhID0gY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSkKcGFpcndpc2Uud2lsY294LnRlc3QoY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRtbnRkX3N0YW5kYXJkLCBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0pCmBgYApgYGB7cn0Ka3J1c2thbC50ZXN0KGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZH5jb3JlX3JlYWxtLCBkYXRhID0gY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSkKcGFpcndpc2Uud2lsY294LnRlc3QoY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbSRiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQsIGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kY29yZV9yZWFsbSkKYGBgCgpgYGB7cn0Ka3J1c2thbC50ZXN0KGh3aV9mZGl2X3N0YW5kYXJkfmNvcmVfcmVhbG0sIGRhdGEgPSBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtKQpwYWlyd2lzZS53aWxjb3gudGVzdChjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGh3aV9mZGl2X3N0YW5kYXJkLCBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0pCmBgYAoKYGBge3J9CmtydXNrYWwudGVzdChtYXNzX2ZkaXZfc3RhbmRhcmR+Y29yZV9yZWFsbSwgZGF0YSA9IGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0pCnBhaXJ3aXNlLndpbGNveC50ZXN0KGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0kbWFzc19mZGl2X3N0YW5kYXJkLCBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtJGNvcmVfcmVhbG0pCmBgYAoKIyBTdW1tYXJ5IG1ldHJpY3MgYnkgaW52YXNpdmUgc3BlY2llcwpgYGB7cn0KY2l0aWVzX3dpdGhfaW50cm9kdWNlZF9zcGVjaWVzID0gY29tbXVuaXRpZXMgJT4lIGZpbHRlcihvcmlnaW4gPT0gJ0ludHJvZHVjZWQnKSAlPiUgc2VsZWN0KGNpdHlfaWQpICU+JSBkaXN0aW5jdCgpCgpjaXRpZXNfd2l0aF9ub19pbnRyb2R1Y2VkX3NwZWNpZXMgPSBjb21tdW5pdGllcyAlPiUgZmlsdGVyKCEoY2l0eV9pZCAlaW4lIGNpdGllc193aXRoX2ludHJvZHVjZWRfc3BlY2llcyRjaXR5X2lkKSkgJT4lIHNlbGVjdChjaXR5X2lkKSAlPiUgZGlzdGluY3QoKQoKY2l0aWVzX3dpdGhfaW50cm9kdWNlZF9zcGVjaWVzJGludHJvZHVjZWRfc3BlY2llcyA9IFRSVUUKY2l0aWVzX3dpdGhfbm9faW50cm9kdWNlZF9zcGVjaWVzJGludHJvZHVjZWRfc3BlY2llcyA9IEZBTFNFCgpjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtX3dpdGhfaW50cm9kdWNlZCA9IGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG0gJT4lIGxlZnRfam9pbihyYmluZChjaXRpZXNfd2l0aF9pbnRyb2R1Y2VkX3NwZWNpZXMsIGNpdGllc193aXRoX25vX2ludHJvZHVjZWRfc3BlY2llcykpCmNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1fd2l0aF9pbnRyb2R1Y2VkCmBgYApgYGB7cn0KdGVzdF9yZXF1aXJlZF92YWx1ZXMoJ1dpdGggSW50cm9kdWNlZCcsIGNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1fd2l0aF9pbnRyb2R1Y2VkW2NvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1fd2l0aF9pbnRyb2R1Y2VkJGludHJvZHVjZWRfc3BlY2llcyxdKQpgYGAKCmBgYHtyfQp0ZXN0X3JlcXVpcmVkX3ZhbHVlcygnV2l0aG91dCBJbnRyb2R1Y2VkJywgY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbV93aXRoX2ludHJvZHVjZWRbIWNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1fd2l0aF9pbnRyb2R1Y2VkJGludHJvZHVjZWRfc3BlY2llcyxdKQpgYGAKCiMjIEhvdyBzaWduaWZpY2FudCBhcmUgdGhvc2UgZGlmZmVyZW5jZXM6CmBgYHtyfQp3aWxjb3gudGVzdChjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtX3dpdGhfaW50cm9kdWNlZCRtbnRkX3N0YW5kYXJkfmNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1fd2l0aF9pbnRyb2R1Y2VkJGludHJvZHVjZWRfc3BlY2llcykKYGBgCgpgYGB7cn0Kd2lsY294LnRlc3QoY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbV93aXRoX2ludHJvZHVjZWQkYmVha193aWR0aF9mZGl2X3N0YW5kYXJkfmNvbW11bml0eV9kYXRhX3dpdGhfcmVhbG1fd2l0aF9pbnRyb2R1Y2VkJGludHJvZHVjZWRfc3BlY2llcykKYGBgCgpgYGB7cn0Kd2lsY294LnRlc3QoY29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbV93aXRoX2ludHJvZHVjZWQkaHdpX2ZkaXZfc3RhbmRhcmR+Y29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbV93aXRoX2ludHJvZHVjZWQkaW50cm9kdWNlZF9zcGVjaWVzKQpgYGAKCmBgYHtyfQp3aWxjb3gudGVzdChjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtX3dpdGhfaW50cm9kdWNlZCRtYXNzX2ZkaXZfc3RhbmRhcmR+Y29tbXVuaXR5X2RhdGFfd2l0aF9yZWFsbV93aXRoX2ludHJvZHVjZWQkaW50cm9kdWNlZF9zcGVjaWVzKQpgYGAKCiMgV2hhdCBmYW1pbGllcyBleGlzdCBpbiB3aGljaCByZWFsbXM/CmBgYHtyfQpjb21tdW5pdGllcyAlPiUgCiAgbGVmdF9qb2luKGNpdHlfdG9fcmVhbG0pICU+JSAKICBtdXRhdGUoZmFtaWx5ID0gZ3N1YiggIiAuKiQiLCAiIiwgZWJpcmRfc3BlY2llc19uYW1lKSkgJT4lCiAgZHBseXI6OnNlbGVjdChmYW1pbHksIGNvcmVfcmVhbG0pICU+JQogIGRpc3RpbmN0KCkgJT4lCiAgYXJyYW5nZShjb3JlX3JlYWxtKQpgYGAKCiMjIFRvdGFsIHVyYmFuIGZhbWlsaWVzCmBgYHtyfQpjb21tdW5pdGllcyAlPiUgCiAgbXV0YXRlKGZhbWlseSA9IGdzdWIoICIgLiokIiwgIiIsIGViaXJkX3NwZWNpZXNfbmFtZSkpICU+JQogIGRwbHlyOjpzZWxlY3QoZmFtaWx5KSAlPiUKICBkaXN0aW5jdCgpICU+JQogIGFycmFuZ2UoKQpgYGAKCm9mIHdoaWNoIHVyYmFuCmBgYHtyfQpjb21tdW5pdGllcyAlPiUgCiAgZmlsdGVyKHJlbGF0aXZlX2FidW5kYW5jZV9wcm94eSA+IDApICU+JQogIG11dGF0ZShmYW1pbHkgPSBnc3ViKCAiIC4qJCIsICIiLCBlYmlyZF9zcGVjaWVzX25hbWUpKSAlPiUKICBkcGx5cjo6c2VsZWN0KGZhbWlseSkgJT4lCiAgZGlzdGluY3QoKSAlPiUKICBhcnJhbmdlKCkKYGBgCgojIFN1bW1hcnkgbWV0cmljcyBieSBpbnRyb2R1Y2VkIHNwZWNpZXMKYGBge3J9CmNvbW11bml0aWVzID0gcmVhZF9jc3YoZmlsZW5hbWUoQ09NTVVOSVRZX09VVFBVVF9ESVIsICdjb21tdW5pdGllc19mb3JfYW5hbHlzaXMuY3N2JykpCmNpdHlfaW50cm9kdWNlZF9zcGVjaWVzID0gY29tbXVuaXRpZXMgJT4lIGdyb3VwX2J5KGNpdHlfaWQpICU+JSBzdW1tYXJpc2UobnVtYmVyX29mX3NwZWNpZXMgPSBuKCkpICU+JSBsZWZ0X2pvaW4oCiAgY29tbXVuaXRpZXMgJT4lIGdyb3VwX2J5KGNpdHlfaWQpICU+JSBmaWx0ZXIob3JpZ2luID09ICdJbnRyb2R1Y2VkJykgJT4lIHN1bW1hcmlzZShudW1iZXJfb2ZfaW50cm9kdWNlZF9zcGVjaWVzID0gbigpKQopICU+JSByZXBsYWNlX25hKGxpc3QobnVtYmVyX29mX2ludHJvZHVjZWRfc3BlY2llcyA9IDApKQoKY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zID0gbGVmdF9qb2luKGNvbW11bml0eV9kYXRhLCBjaXR5X2ludHJvZHVjZWRfc3BlY2llcykKY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zJGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMgPSBjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMkbnVtYmVyX29mX2ludHJvZHVjZWRfc3BlY2llcyA+IDAKY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zCmBgYAoKYGBge3J9CmNvbW11bml0aWVzICU+JSAKICBmaWx0ZXIob3JpZ2luID09ICdJbnRyb2R1Y2VkJykgJT4lCiAgZHBseXI6OnNlbGVjdChlYmlyZF9zcGVjaWVzX25hbWUpICU+JQogIGdyb3VwX2J5KGViaXJkX3NwZWNpZXNfbmFtZSkgJT4lCiAgc3VtbWFyaXNlKHRvdGFsX2NpdGllcyA9IG4oKSkgJT4lCiAgYXJyYW5nZShkZXNjKHRvdGFsX2NpdGllcykpCmBgYAoKYGBge3J9CmNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9uc1ssYygnbW50ZF9zdGFuZGFyZCcsICdoYXNfaW50cm9kdWNlZF9zcGVjaWVzJyldCmBgYAoKYGBge3J9CmNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9ucyAlPiUgZ3JvdXBfYnkoaGFzX2ludHJvZHVjZWRfc3BlY2llcykgJT4lIHN1bW1hcmlzZSgKICB0b3RhbF9jaXRpZXMgPSBuKCksIAogIAogIG1lYW5fbW50ZF9zdGQgPSBtZWFuKG1udGRfc3RhbmRhcmQsIG5hLnJtID0gVCksCiAgbWVkaWFuX21udGRfc3RkID0gbWVkaWFuKG1udGRfc3RhbmRhcmQsIG5hLnJtID0gVCksCiAgc2RfbW50ZF9zdGQgPSBzZChtbnRkX3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIAogIG1lYW5fbWFzc19mZGl2X3N0ZCA9IG1lYW4obWFzc19mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIG1lZGlhbl9tYXNzX2ZkaXZfc3RkID0gbWVkaWFuKG1hc3NfZmRpdl9zdGFuZGFyZCwgbmEucm0gPSBUKSwKICBzZF9tYXNzX2ZkaXZfc3RkID0gc2QobWFzc19mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIAogIG1lYW5fZ2FwZV93aWR0aF9mZGl2X3N0ZCA9IG1lYW4oYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIG1lZGlhbl9nYXBlX3dpZHRoX2ZkaXZfc3RkID0gbWVkaWFuKGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCwgbmEucm0gPSBUKSwKICBzZF9nYXBlX3dpZHRoX2ZkaXZfc3RkID0gc2QoYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIAogIG1lYW5faGFuZHdpbmdfaW5kZXhfZmRpdl9zdGQgPSBtZWFuKGh3aV9mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpLAogIG1lZGlhbl9oYW5kd2luZ19pbmRleF9mZGl2X3N0ZCA9IG1lZGlhbihod2lfZmRpdl9zdGFuZGFyZCwgbmEucm0gPSBUKSwKICBzZF9oYW5kd2luZ19pbmRleF9mZGl2X3N0ZCA9IHNkKGh3aV9mZGl2X3N0YW5kYXJkLCBuYS5ybSA9IFQpCikKYGBgCgojIyBNTlRECmBgYHtyfQpnZ3Bsb3QoY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBhZXMoeCA9IGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMsIHkgPSBtbnRkX3N0YW5kYXJkKSkgKyBnZW9tX2JveHBsb3QoKQpgYGAKCmBgYHtyfQp3aWxjb3gudGVzdChtbnRkX3N0YW5kYXJkIH4gaGFzX2ludHJvZHVjZWRfc3BlY2llcywgY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBuYS5hY3Rpb24gPSAnbmEub21pdCcpCmBgYAoKVGhlcmUgaXMgYSBzaWduaWZpY2FudCBkaWZmZXJlbmNlIGJldHdlZW4gdGhlIHJlc3BvbnNlIG9mIGNpdGllcyB3aXRoIGludHJvZHVjZWQgc3BlY2llcyAoMC41M8KxMC4yNykgYW5kIHRob3NlIHdpdGhvdXQgKDAuNDfCsTAuMTkpIChwLXZhbHVlID0gMC4wMikuCgoKIyMgTWFzcyBGRGl2CmBgYHtyfQpnZ3Bsb3QoY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBhZXMoeCA9IGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMsIHkgPSBtYXNzX2ZkaXZfc3RhbmRhcmQpKSArIGdlb21fYm94cGxvdCgpCmBgYAoKYGBge3J9CndpbGNveC50ZXN0KG1hc3NfZmRpdl9zdGFuZGFyZCB+IGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMsIGNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9ucywgbmEuYWN0aW9uID0gJ25hLm9taXQnKQpgYGAKVGhlcmUgaXMgYSBzaWduaWZpY2FudCBkaWZmZXJlbmNlIGJldHdlZW4gdGhlIHJlc3BvbnNlIG9mIGNpdGllcyB3aXRoIGludHJvZHVjZWQgc3BlY2llcyAoMC41N8KxMC4yNykgYW5kIHRob3NlIHdpdGhvdXQgKDAuNzPCsTAuMjQpIChwIDwgMC4wMDAxKQoKCiMjIEJlYWsgR2FwZSBGRGl2CmBgYHtyfQpnZ3Bsb3QoY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBhZXMoeCA9IGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMsIHkgPSBiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQpKSArIGdlb21fYm94cGxvdCgpCmBgYAoKYGBge3J9CndpbGNveC50ZXN0KGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCB+IGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMsIGNvbW11bml0eV9kYXRhX3dpdGhfaW50cm9kdWN0aW9ucywgbmEuYWN0aW9uID0gJ25hLm9taXQnKQpgYGAKVGhlcmUgaXMgTk9UIGEgc2lnbmlmaWNhbnQgZGlmZmVyZW5jZSBiZXR3ZWVuIHRoZSByZXNwb25zZSBvZiBjaXRpZXMgd2l0aCBpbnRyb2R1Y2VkIHNwZWNpZXMgKDAuNjHCsTAuMzApIGFuZCB0aG9zZSB3aXRob3V0ICgwLjU2wrEwLjI3KQoKCiMjIEhXSSBGRGl2CmBgYHtyfQpnZ3Bsb3QoY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zLCBhZXMoeCA9IGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMsIHkgPSBod2lfZmRpdl9zdGFuZGFyZCkpICsgZ2VvbV9ib3hwbG90KCkKYGBgCgpgYGB7cn0Kd2lsY294LnRlc3QoaHdpX2ZkaXZfc3RhbmRhcmQgfiBoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCBjb21tdW5pdHlfZGF0YV93aXRoX2ludHJvZHVjdGlvbnMsIG5hLmFjdGlvbiA9ICduYS5vbWl0JykKYGBgClRoZXJlIGlzIGEgc2lnbmlmaWNhbnQgZGlmZmVyZW5jZSBiZXR3ZWVuIHRoZSByZXNwb25zZSBvZiBjaXRpZXMgd2l0aCBpbnRyb2R1Y2VkIHNwZWNpZXMgKDAuNDnCsTAuMzApIGFuZCB0aG9zZSB3aXRob3V0ICgwLjc5wrEwLjIxKSAocCA8IDAuMDAwMSkKCiMjIFdoYXQgcHJvcG9ydGlvbiBvZiBjaXRpZXMgaW4gZWFjaCByZWFsbSBoYXZlIGludHJvZHVjZWQgc3BlY2llcwpgYGB7cn0KY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zICU+JSBsZWZ0X2pvaW4oY2l0eV90b19yZWFsbSkgJT4lCiAgZ3JvdXBfYnkoY29yZV9yZWFsbSkgJT4lCiAgc3VtbWFyaXNlKAogICAgdG90YWxfY2l0aWVzID0gbigpLCAKICAgIHRvdGFsX2NpdGllc193aXRoX2ludHJvZHVjZWQgPSBzdW0oaGFzX2ludHJvZHVjZWRfc3BlY2llcyksIAogICAgdG90YWxfY2l0aWVzX3dpdGhvdXRfaW50cm9kdWNlZCA9IG4oKSAtIHN1bShoYXNfaW50cm9kdWNlZF9zcGVjaWVzKSkgJT4lCiAgYXJyYW5nZShjb3JlX3JlYWxtKQpgYGAKCiMjIEFyZSBhbnkgaW50cm9kdWNlZCBzcGVjaWVzIG5vdCBhbHNvIHByZXNlbnQgaW4gYSBjaXR5PwpgYGB7cn0KY29tbXVuaXRpZXMgJT4lIAogIGZpbHRlcihvcmlnaW4gPT0gJ0ludHJvZHVjZWQnKSAlPiUgCiAgZmlsdGVyKHJlbGF0aXZlX2FidW5kYW5jZV9wcm94eSA8IDAuMSkKYGBgCgojIyBXaGF0J3MgdGhlIGF2ZXJhZ2UgcmVsYXRpdmUgYWJ1bmRhbmNlIG9mIGludHJvZHVjZWQgc3BlY2llcyBjb21wYXJlZCB0byBuYXRpdmUKYGBge3J9CmNvbW11bml0aWVzICU+JSAKICBncm91cF9ieShvcmlnaW4pICU+JSAKICBzdW1tYXJpc2UoYXZlcmFnZV9yZWxhdGl2ZV9hYnVuZGFuY2UgPSBtZWFuKHJlbGF0aXZlX2FidW5kYW5jZV9wcm94eSkpCmBgYAoKYGBge3J9CmNvbW11bml0aWVzICU+JSAKICBncm91cF9ieShvcmlnaW4pICU+JSAKICBmaWx0ZXIocmVsYXRpdmVfYWJ1bmRhbmNlX3Byb3h5ID4gMCkgJT4lCiAgc3VtbWFyaXNlKGF2ZXJhZ2VfcmVsYXRpdmVfYWJ1bmRhbmNlID0gbWVhbihyZWxhdGl2ZV9hYnVuZGFuY2VfcHJveHkpKQpgYGAKCmBgYHtyfQpjb21tdW5pdGllcyAlPiUgCiAgZ3JvdXBfYnkob3JpZ2luKSAlPiUgCiAgc3VtbWFyaXNlKGF2ZXJhZ2VfcmVsYXRpdmVfYWJ1bmRhbmNlID0gbWVhbihyZWxhdGl2ZV9hYnVuZGFuY2VfcHJveHkpKQpgYGAKCiMgQ3JlYXRlIGFuYWx5c2lzIGRhdGEgZnJhbWUKYGBge3J9Cmdlb2dyYXBoeSA9IHJlYWRfY3N2KGZpbGVuYW1lKENJVFlfREFUQV9PVVRQVVRfRElSLCAnZ2VvZ3JhcGh5LmNzdicpKQpuYW1lcyhnZW9ncmFwaHkpCmBgYAoKYGBge3J9CmFuYWx5c2lzX2RhdGEgPSBjb21tdW5pdHlfZGF0YV93aXRoX3JlYWxtWyxjKCdjaXR5X2lkJywgJ21udGRfc3RhbmRhcmQnLCAnbWFzc19mZGl2X3N0YW5kYXJkJywgJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcsICdod2lfZmRpdl9zdGFuZGFyZCcsICdjb3JlX3JlYWxtJyldICU+JSAKICBsZWZ0X2pvaW4oY2l0eV9wb2ludHNbLGMoJ2NpdHlfaWQnLCAnbGF0aXR1ZGUnLCAnbG9uZ2l0dWRlJyldKSAlPiUKICBsZWZ0X2pvaW4oY29tbXVuaXR5X2RhdGFfd2l0aF9pbnRyb2R1Y3Rpb25zWyxjKCdjaXR5X2lkJywgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXMnKV0pICU+JQogIGxlZnRfam9pbihnZW9ncmFwaHkpICU+JQogIGxlZnRfam9pbihzcGF0aWFsX3ZhcikKCmFuYWx5c2lzX2RhdGEkYWJzX2xhdGl0dWRlID0gYWJzKGFuYWx5c2lzX2RhdGEkbGF0aXR1ZGUpCmFuYWx5c2lzX2RhdGEkY29yZV9yZWFsbSA9IGZhY3RvcihhbmFseXNpc19kYXRhJGNvcmVfcmVhbG0sIGxldmVscyA9IGMoJ1BhbGVhcmN0aWMnLCAnTmVhcmN0aWMnLCAnTmVvdHJvcGljJywgJ0Fmcm90cm9waWMnLCAnSW5kb21hbGF5YW4nLCAnQXVzdHJhbGFzaWEnLCAnT2NlYW5pYScpKQphbmFseXNpc19kYXRhJGhhc19pbnRyb2R1Y2VkX3NwZWNpZXMgPSBmYWN0b3IoYW5hbHlzaXNfZGF0YSRoYXNfaW50cm9kdWNlZF9zcGVjaWVzLCBsZXZlbCA9IGMoJ0ZBTFNFJywgJ1RSVUUnKSwgbGFiZWxzID0gYygnTm8gaW50cm9kdWNlZCBzcGVjaWVzJywgJ0ludHJvZHVjZWQgc3BlY2llcycpKQpgYGAKCmBgYHtyfQptb2RlbF9kYXRhID0gZnVuY3Rpb24oZGYsIGRlcGVuZGFudF92YXIpIHsKICBkZlssYyhkZXBlbmRhbnRfdmFyLCAnY29yZV9yZWFsbScsICdhYnNfbGF0aXR1ZGUnLCAnbG9uZ2l0dWRlJywgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXMnLCAnY2l0eV9hdmdfbmR2aScsICdjaXR5X2F2Z19lbGV2YXRpb24nLCAnY2l0eV9hdmdfdGVtcCcsICdjaXR5X2F2Z19taW5fbW9udGhseV90ZW1wJywgJ2NpdHlfYXZnX21heF9tb250aGx5X3RlbXAnLCAnY2l0eV9hdmdfbW9udGhseV90ZW1wJywgJ2NpdHlfYXZnX3JhaW5mYWxsJywgJ2NpdHlfYXZnX21heF9tb250aGx5X3JhaW5mYWxsJywgJ2NpdHlfYXZnX21pbl9tb250aGx5X3JhaW5mYWxsJywgJ2NpdHlfYXZnX3NvaWxfbW9pc3R1cmUnLCAnY2l0eV9tYXhfZWxldicsICdjaXR5X21pbl9lbGV2JywgJ2NpdHlfZWxldl9yYW5nZScsICdyZWdpb25fMjBrbV9hdmdfbmR2aScsICdyZWdpb25fMjBrbV9hdmdfZWxldmF0aW9uJywgJ3JlZ2lvbl8yMGttX2F2Z19zb2lsX21vaXN0dXJlJywgJ3JlZ2lvbl8yMGttX21heF9lbGV2JywgJ3JlZ2lvbl8yMGttX21pbl9lbGV2JywgJ3JlZ2lvbl8yMGttX2VsZXZfcmFuZ2UnLCAncmVnaW9uXzUwa21fYXZnX25kdmknLCAncmVnaW9uXzUwa21fYXZnX2VsZXZhdGlvbicsICdyZWdpb25fNTBrbV9hdmdfc29pbF9tb2lzdHVyZScsICdyZWdpb25fNTBrbV9tYXhfZWxldicsICdyZWdpb25fNTBrbV9taW5fZWxldicsICdyZWdpb25fNTBrbV9lbGV2X3JhbmdlJyldCn0KbW9kZWxfZGF0YShhbmFseXNpc19kYXRhLCAnbW50ZF9zdGFuZGFyZCcpCmBgYAoKYGBge3J9Cm5hbWVzKGFuYWx5c2lzX2RhdGEpCmBgYAoKIyMgTk1EUyBTcGF0aWFsIEhlbHBlcnMKYGBge3J9CmFuYWx5c2lzX2RhdGFfbm1kc19jb29yZHMgPSBhbmFseXNpc19kYXRhWyxjKCdOTURTMScsICdOTURTMicpXQpjb29yZGluYXRlcyhhbmFseXNpc19kYXRhX25tZHNfY29vcmRzKSAgPSB+IE5NRFMxICsgTk1EUzIKCmFuYWx5c2lzX2RhdGFfbm1kc19uZWFybmVpZ2ggPC0ga25lYXJuZWlnaChhbmFseXNpc19kYXRhX25tZHNfY29vcmRzKQphbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycyA8LSBrbm4ybmIoYW5hbHlzaXNfZGF0YV9ubWRzX25lYXJuZWlnaCkKYGBgCgojIyMgUG9seWdvbnMgYXJvdW5kIHJlYWxtcyBpbiBOTURTIHBsb3QKYGBge3J9CmNpdGllc190b19yZWFsbXNfbm1kcyA9IHJlYWRfY3N2KGZpbGVuYW1lKENJVFlfREFUQV9PVVRQVVRfRElSLCAncmVhbG1zLmNzdicpKSAlPiUgbGVmdF9qb2luKGFuYWx5c2lzX2RhdGEpICU+JSBmaWx0ZXIoIWlzLm5hKE5NRFMxKSkKdW5pcXVlKGNpdGllc190b19yZWFsbXNfbm1kcyRjb3JlX3JlYWxtKQpyZWFsbV9ubWRzX25lYXJ0aWNfcG9seWdvbiA9IGNpdGllc190b19yZWFsbXNfbm1kcyAlPiUgZmlsdGVyKGNvcmVfcmVhbG0gPT0gJ05lYXJjdGljJykgJT4lIHNsaWNlKGNodWxsKE5NRFMxLCBOTURTMikpCnJlYWxtX25tZHNfbmVvdHJvcGljX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX25tZHMgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdOZW90cm9waWMnKSAlPiUgc2xpY2UoY2h1bGwoTk1EUzEsIE5NRFMyKSkKcmVhbG1fbm1kc19wYWxlYXJjdGljX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX25tZHMgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdQYWxlYXJjdGljJykgJT4lIHNsaWNlKGNodWxsKE5NRFMxLCBOTURTMikpCnJlYWxtX25tZHNfYWZyb3Ryb3BpY19wb2x5Z29uID0gY2l0aWVzX3RvX3JlYWxtc19ubWRzICU+JSBmaWx0ZXIoY29yZV9yZWFsbSA9PSAnQWZyb3Ryb3BpYycpICU+JSBzbGljZShjaHVsbChOTURTMSwgTk1EUzIpKQpyZWFsbV9ubWRzX2luZG9tYWxheWFuX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX25tZHMgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdJbmRvbWFsYXlhbicpICU+JSBzbGljZShjaHVsbChOTURTMSwgTk1EUzIpKQpyZWFsbV9ubWRzX2F1c3RyYWxhc2lhX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX25tZHMgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdBdXN0cmFsYXNpYScpICU+JSBzbGljZShjaHVsbChOTURTMSwgTk1EUzIpKQoKcG9seWdvbl9saW5lX3R5cGUgPSAnZGFzaGVkJwpwb2x5Z29uX2xpbmV3aWR0aCA9IDAuNAoKd2l0aF9yZWFsbXNfbm1kcyA9IGZ1bmN0aW9uKGcpIHsKICBnICsgCiAgICBnZW9tX3BvbHlnb24oZGF0YSA9IHJlYWxtX25tZHNfbmVhcnRpY19wb2x5Z29uLCBsaW5ld2lkdGggPSBwb2x5Z29uX2xpbmV3aWR0aCwgbGluZXR5cGUgPSBwb2x5Z29uX2xpbmVfdHlwZSwgYWxwaGEgPSAwKSArCiAgICBnZW9tX3BvbHlnb24oZGF0YSA9IHJlYWxtX25tZHNfbmVvdHJvcGljX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbm1kc19wYWxlYXJjdGljX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbm1kc19hZnJvdHJvcGljX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbm1kc19pbmRvbWFsYXlhbl9wb2x5Z29uLCBsaW5ld2lkdGggPSBwb2x5Z29uX2xpbmV3aWR0aCwgbGluZXR5cGUgPSBwb2x5Z29uX2xpbmVfdHlwZSwgYWxwaGEgPSAwKSArCiAgICBnZW9tX3BvbHlnb24oZGF0YSA9IHJlYWxtX25tZHNfYXVzdHJhbGFzaWFfcG9seWdvbiwgbGluZXdpZHRoID0gcG9seWdvbl9saW5ld2lkdGgsIGxpbmV0eXBlID0gcG9seWdvbl9saW5lX3R5cGUsIGFscGhhID0gMCkKfQpgYGAKCiMjIExhdCBMb25nIFNwYXRpYWwgSGVscGVycwpgYGB7cn0KYW5hbHlzaXNfZGF0YV9sYXRsb25nX2Nvb3JkcyA9IGFuYWx5c2lzX2RhdGFbLGMoJ2xvbmdpdHVkZScsICdsYXRpdHVkZScpXQpjb29yZGluYXRlcyhhbmFseXNpc19kYXRhX2xhdGxvbmdfY29vcmRzKSAgPSB+IGxvbmdpdHVkZSArIGxhdGl0dWRlCgphbmFseXNpc19kYXRhX2Nvb3Jkc19uZWFybmVpZ2ggPC0ga25lYXJuZWlnaChhbmFseXNpc19kYXRhX2xhdGxvbmdfY29vcmRzLCBsb25nbGF0ID0gVFJVRSkKYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzIDwtIGtubjJuYihhbmFseXNpc19kYXRhX2Nvb3Jkc19uZWFybmVpZ2gpCmBgYAoKIyMjIFBvbHlnb25zIGFyb3VuZCByZWFsbXMgaW4gbGF0IGxvbmcgcGxvdApgYGB7cn0KY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nID0gcmVhZF9jc3YoZmlsZW5hbWUoQ0lUWV9EQVRBX09VVFBVVF9ESVIsICdyZWFsbXMuY3N2JykpICU+JSBsZWZ0X2pvaW4oYW5hbHlzaXNfZGF0YSkgJT4lIGZpbHRlcighaXMubmEobGF0aXR1ZGUpKQp1bmlxdWUoY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nJGNvcmVfcmVhbG0pCnJlYWxtX2xhdGxvbmdfbmVhcnRpY19wb2x5Z29uID0gY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nICU+JSBmaWx0ZXIoY29yZV9yZWFsbSA9PSAnTmVhcmN0aWMnKSAlPiUgc2xpY2UoY2h1bGwobGF0aXR1ZGUsIGxvbmdpdHVkZSkpCnJlYWxtX2xhdGxvbmdfbmVvdHJvcGljX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX2xhdGxvbmcgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdOZW90cm9waWMnKSAlPiUgc2xpY2UoY2h1bGwobGF0aXR1ZGUsIGxvbmdpdHVkZSkpCnJlYWxtX2xhdGxvbmdfcGFsZWFyY3RpY19wb2x5Z29uID0gY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nICU+JSBmaWx0ZXIoY29yZV9yZWFsbSA9PSAnUGFsZWFyY3RpYycpICU+JSBzbGljZShjaHVsbChsYXRpdHVkZSwgbG9uZ2l0dWRlKSkKcmVhbG1fbGF0bG9uZ19hZnJvdHJvcGljX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX2xhdGxvbmcgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdBZnJvdHJvcGljJykgJT4lIHNsaWNlKGNodWxsKGxhdGl0dWRlLCBsb25naXR1ZGUpKQpyZWFsbV9sYXRsb25nX2luZG9tYWxheWFuX3BvbHlnb24gPSBjaXRpZXNfdG9fcmVhbG1zX2xhdGxvbmcgJT4lIGZpbHRlcihjb3JlX3JlYWxtID09ICdJbmRvbWFsYXlhbicpICU+JSBzbGljZShjaHVsbChsYXRpdHVkZSwgbG9uZ2l0dWRlKSkKcmVhbG1fbGF0bG9uZ19hdXN0cmFsYXNpYV9wb2x5Z29uID0gY2l0aWVzX3RvX3JlYWxtc19sYXRsb25nICU+JSBmaWx0ZXIoY29yZV9yZWFsbSA9PSAnQXVzdHJhbGFzaWEnKSAlPiUgc2xpY2UoY2h1bGwobGF0aXR1ZGUsIGxvbmdpdHVkZSkpCgp3aXRoX3JlYWxtc19sYXRsb25nID0gZnVuY3Rpb24oZykgewogIGcgKyAKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbGF0bG9uZ19uZWFydGljX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbGF0bG9uZ19uZW90cm9waWNfcG9seWdvbiwgbGluZXdpZHRoID0gcG9seWdvbl9saW5ld2lkdGgsIGxpbmV0eXBlID0gcG9seWdvbl9saW5lX3R5cGUsIGFscGhhID0gMCkgKwogICAgZ2VvbV9wb2x5Z29uKGRhdGEgPSByZWFsbV9sYXRsb25nX3BhbGVhcmN0aWNfcG9seWdvbiwgbGluZXdpZHRoID0gcG9seWdvbl9saW5ld2lkdGgsIGxpbmV0eXBlID0gcG9seWdvbl9saW5lX3R5cGUsIGFscGhhID0gMCkgKwogICAgZ2VvbV9wb2x5Z29uKGRhdGEgPSByZWFsbV9sYXRsb25nX2Fmcm90cm9waWNfcG9seWdvbiwgbGluZXdpZHRoID0gcG9seWdvbl9saW5ld2lkdGgsIGxpbmV0eXBlID0gcG9seWdvbl9saW5lX3R5cGUsIGFscGhhID0gMCkgKwogICAgZ2VvbV9wb2x5Z29uKGRhdGEgPSByZWFsbV9sYXRsb25nX2luZG9tYWxheWFuX3BvbHlnb24sIGxpbmV3aWR0aCA9IHBvbHlnb25fbGluZXdpZHRoLCBsaW5ldHlwZSA9IHBvbHlnb25fbGluZV90eXBlLCBhbHBoYSA9IDApICsKICAgIGdlb21fcG9seWdvbihkYXRhID0gcmVhbG1fbGF0bG9uZ19hdXN0cmFsYXNpYV9wb2x5Z29uLCBsaW5ld2lkdGggPSBwb2x5Z29uX2xpbmV3aWR0aCwgbGluZXR5cGUgPSBwb2x5Z29uX2xpbmVfdHlwZSwgYWxwaGEgPSAwKQp9CmBgYAoKIyBDaGVjayBmb3Igc3BhdGlhbCBhdXRvY29ycmVsYXRpb24KCiMjIE1OVEQKCiMjIyBMYXQvTG9uZwpgYGB7cn0Kd2l0aF9yZWFsbXNfbGF0bG9uZyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBsYXRpdHVkZSwgeSA9IGxvbmdpdHVkZSwgY29sb3VyID0gbW50ZF9zdGFuZGFyZCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJG1udGRfc3RhbmRhcmQsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCmBgYAoKIyMjIE5NRFMKYGBge3J9CndpdGhfcmVhbG1zX25tZHMoZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gTk1EUzEsIHkgPSBOTURTMiwgY29sb3VyID0gbW50ZF9zdGFuZGFyZCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJG1udGRfc3RhbmRhcmQsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgojIyBGRGl2IEJlYWsgV2lkdGgKCiMjIyBMYXQvTG9uZwpgYGB7cn0Kd2l0aF9yZWFsbXNfbGF0bG9uZyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBsYXRpdHVkZSwgeSA9IGxvbmdpdHVkZSwgY29sb3VyID0gYmVha193aWR0aF9mZGl2X3N0YW5kYXJkKSkgKyBnZW9tX3BvaW50KCkgKyBzdGFuZGFyZGlzZWRfY29sb3Vyc19zY2FsZSArIGxhYnMoY29sb3VyID0gIlN0YW5kYXJkaXNlZCByZXNwb25zZSIpKQpgYGAKCmBgYHtyfQptb3Jhbi50ZXN0KGFuYWx5c2lzX2RhdGEkYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQpgYGAKCiMjIyBOTURTCmBgYHtyfQp3aXRoX3JlYWxtc19ubWRzKGdncGxvdChhbmFseXNpc19kYXRhLCBhZXMoeCA9IE5NRFMxLCB5ID0gTk1EUzIsIGNvbG91ciA9IGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCwgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCgojIyBGRGl2IEhXSQoKIyMjIExhdC9Mb25nCmBgYHtyfQp3aXRoX3JlYWxtc19sYXRsb25nKGdncGxvdChhbmFseXNpc19kYXRhLCBhZXMoeCA9IGxhdGl0dWRlLCB5ID0gbG9uZ2l0dWRlLCBjb2xvdXIgPSBod2lfZmRpdl9zdGFuZGFyZCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJGh3aV9mZGl2X3N0YW5kYXJkLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQpgYGAKCiMjIyBOTURTCmBgYHtyfQp3aXRoX3JlYWxtc19ubWRzKGdncGxvdChhbmFseXNpc19kYXRhLCBhZXMoeCA9IE5NRFMxLCB5ID0gTk1EUzIsIGNvbG91ciA9IGh3aV9mZGl2X3N0YW5kYXJkKSkgKyBnZW9tX3BvaW50KCkgKyBzdGFuZGFyZGlzZWRfY29sb3Vyc19zY2FsZSArIGxhYnMoY29sb3VyID0gIlN0YW5kYXJkaXNlZCByZXNwb25zZSIpKQpgYGAKCmBgYHtyfQptb3Jhbi50ZXN0KGFuYWx5c2lzX2RhdGEkaHdpX2ZkaXZfc3RhbmRhcmQsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgoKIyMgRkRpdiBNYXNzCgojIyMgTGF0L0xvbmcKYGBge3J9CndpdGhfcmVhbG1zX2xhdGxvbmcoZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gbGF0aXR1ZGUsIHkgPSBsb25naXR1ZGUsIGNvbG91ciA9IG1hc3NfZmRpdl9zdGFuZGFyZCkpICsgZ2VvbV9wb2ludCgpICsgc3RhbmRhcmRpc2VkX2NvbG91cnNfc2NhbGUgKyBsYWJzKGNvbG91ciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKSkKYGBgCgpgYGB7cn0KbW9yYW4udGVzdChhbmFseXNpc19kYXRhJG1hc3NfZmRpdl9zdGFuZGFyZCwgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKYGBgCgojIyMgTk1EUwpgYGB7cn0Kd2l0aF9yZWFsbXNfbm1kcyhnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBOTURTMSwgeSA9IE5NRFMyLCBjb2xvdXIgPSBtYXNzX2ZkaXZfc3RhbmRhcmQpKSArIGdlb21fcG9pbnQoKSArIHN0YW5kYXJkaXNlZF9jb2xvdXJzX3NjYWxlICsgbGFicyhjb2xvdXIgPSAiU3RhbmRhcmRpc2VkIHJlc3BvbnNlIikpCmBgYAoKYGBge3J9Cm1vcmFuLnRlc3QoYW5hbHlzaXNfZGF0YSRtYXNzX2ZkaXZfc3RhbmRhcmQsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgoKIyBFeGFtaW5lIGluZGl2aWR1YWwgbWV0cmljcwpgYGB7cn0KYWxsX2V4cGxhbmF0b3JpZXMgPSBjKAogICAgJ2NpdHlfYXZnX25kdmknLCAnY2l0eV9hdmdfZWxldmF0aW9uJywgJ2NpdHlfYXZnX3RlbXAnLAogICAgJ3JlZ2lvbl81MGttX2F2Z19zb2lsX21vaXN0dXJlJywKICAgICdjb3JlX3JlYWxtQWZyb3Ryb3BpYycsICdjb3JlX3JlYWxtQXVzdHJhbGFzaWEnLCAnY29yZV9yZWFsbUluZG9tYWxheWFuJywgJ2NvcmVfcmVhbG1OZWFyY3RpYycsICdjb3JlX3JlYWxtTmVvdHJvcGljJywgJ2NvcmVfcmVhbG1QYWxlYXJjdGljJywKICAgICdoYXNfaW50cm9kdWNlZF9zcGVjaWVzTm8gaW50cm9kdWNlZCBzcGVjaWVzJywgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXNJbnRyb2R1Y2VkIHNwZWNpZXMnCikKCmFsbF9leHBsYW5hdG9yeV9uYW1lcyA9IGZhY3RvcigKICAgYygKICAgICdBdmcuIE5EVkknLCAnQXZnLiBFbGV2YXRpb24nLCAnQXZnLiBUZW1wLicsCiAgICAnQXZnLiBTb2lsIE1vaXN0dXJlJywKICAgICdBZnJvdHJvcGljJywgJ0F1c3RyYWxhc2lhJywgJ0luZG9tYWxheWFuJywgJ05lYXJjdGljJywgJ05lb3Ryb3BpYycsICdQYWxlYXJjdGljJywKICAgICdJbnRyb2R1Y2VkIEFic2VudCcsICdJbnRyb2R1Y2VkIFByZXNlbnQnCiAgKSwgb3JkZXJlZCA9IFQKKQoKZXhwbGFuYXRvcnlfZGljdGlvbmFyeSA9IGRhdGEuZnJhbWUoZXhwbGFuYXRvcnkgPSBhbGxfZXhwbGFuYXRvcmllcywgZXhwbGFuYXRvcnlfbmFtZSA9IGFsbF9leHBsYW5hdG9yeV9uYW1lcykKICAKd2l0aF9leHBsYW5hdG9yeV90eXBlX2xhYmVscyA9IGZ1bmN0aW9uKHApIHsKICBwID0gcFtwJGV4cGxhbmF0b3J5ICE9ICcoSW50ZXJjZXB0KScsXQogIGV4cGxhbmF0b3J5X2xldmVscyA9IGFsbF9leHBsYW5hdG9yaWVzW2FsbF9leHBsYW5hdG9yaWVzICVpbiUgcCRleHBsYW5hdG9yeV0KICBwJGV4cGxhbmF0b3J5IDwtIGZhY3RvcihwJGV4cGxhbmF0b3J5LCBsZXZlbHMgPSBleHBsYW5hdG9yeV9sZXZlbHMpCiAgCiAgcCR0eXBlIDwtICdSZWFsbScKICBwJHR5cGVbcCRleHBsYW5hdG9yeSAlaW4lIGMoJ2NpdHlfYXZnX25kdmknLCAnY2l0eV9hdmdfZWxldmF0aW9uJywgJ2NpdHlfYXZnX3RlbXAnKV0gPC0gJ0NpdHkgZ2VvZ3JhcGh5JwogIHAkdHlwZVtwJGV4cGxhbmF0b3J5ICVpbiUgYygncmVnaW9uXzUwa21fYXZnX3NvaWxfbW9pc3R1cmUnKV0gPC0gJ1JlZ2lvbmFsICg1MGttKSBnZW9ncmFwaHknCiAgcCR0eXBlW3AkZXhwbGFuYXRvcnkgJWluJSBjKCdoYXNfaW50cm9kdWNlZF9zcGVjaWVzTm8gaW50cm9kdWNlZCBzcGVjaWVzJywgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXNJbnRyb2R1Y2VkIHNwZWNpZXMnKV0gPC0gJ0ludHJvZHVjZWQgc3BlY2llcycKICBwCn0KCndpdGhfZXhwbGFuYXRvcnlfbmFtZXMgPSBmdW5jdGlvbihwKSB7CiAgcCAlPiUgbGVmdF9qb2luKGV4cGxhbmF0b3J5X2RpY3Rpb25hcnkpICU+JSBhcnJhbmdlKGRlc2MoZXhwbGFuYXRvcnlfbmFtZSkpCn0KCnR5cGVfbGFiZWxzID0gZnVuY3Rpb24ocCkgewogIGV4cGxhbmF0b3J5X2xldmVscyA9IGFsbF9leHBsYW5hdG9yaWVzW2FsbF9leHBsYW5hdG9yaWVzICVpbiUgcCRleHBsYW5hdG9yeV0KICBwJGV4cGxhbmF0b3J5IDwtIGZhY3RvcihwJGV4cGxhbmF0b3J5LCBsZXZlbHMgPSBleHBsYW5hdG9yeV9sZXZlbHMpCiAgCiAgcCR0eXBlIDwtICdSZWFsbScKICBwJHR5cGVbcCRleHBsYW5hdG9yeSAlaW4lIGMoJ2NpdHlfYXZnX25kdmknLCAnY2l0eV9hdmdfZWxldmF0aW9uJywgJ2NpdHlfYXZnX3RlbXAnLCAnY2l0eV9hdmdfbWluX21vbnRobHlfdGVtcCcsICdjaXR5X2F2Z19tYXhfbW9udGhseV90ZW1wJywgCiAgICAnY2l0eV9hdmdfbW9udGhseV90ZW1wJywgJ2NpdHlfYXZnX3JhaW5mYWxsJywgJ2NpdHlfYXZnX21heF9tb250aGx5X3JhaW5mYWxsJywgJ2NpdHlfYXZnX21pbl9tb250aGx5X3JhaW5mYWxsJywgCiAgICAnY2l0eV9hdmdfc29pbF9tb2lzdHVyZScsICdjaXR5X21heF9lbGV2JywgJ2NpdHlfbWluX2VsZXYnLCAnY2l0eV9lbGV2X3JhbmdlJyldIDwtICdDaXR5IGdlb2dyYXBoeScKICBwJHR5cGVbcCRleHBsYW5hdG9yeSAlaW4lIGMoJ3JlZ2lvbl81MGttX2F2Z19uZHZpJywgJ3JlZ2lvbl81MGttX2F2Z19lbGV2YXRpb24nLCAncmVnaW9uXzUwa21fYXZnX3NvaWxfbW9pc3R1cmUnLCAncmVnaW9uXzUwa21fbWF4X2VsZXYnLCAKICAgICdyZWdpb25fNTBrbV9taW5fZWxldicsICdyZWdpb25fNTBrbV9lbGV2X3JhbmdlJyldIDwtICdSZWdpb25hbCAoNTBrbSkgZ2VvZ3JhcGh5JwogICBwJHR5cGVbcCRleHBsYW5hdG9yeSAlaW4lIGMoJ3JlZ2lvbl8yMGttX2F2Z19uZHZpJywgJ3JlZ2lvbl8yMGttX2F2Z19lbGV2YXRpb24nLCAncmVnaW9uXzIwa21fYXZnX3NvaWxfbW9pc3R1cmUnLCAncmVnaW9uXzIwa21fbWF4X2VsZXYnLCAKICAgICdyZWdpb25fMjBrbV9taW5fZWxldicsICdyZWdpb25fMjBrbV9lbGV2X3JhbmdlJyldIDwtICdSZWdpb25hbCAoMjBrbSkgZ2VvZ3JhcGh5JwogIHAkdHlwZVtwJGV4cGxhbmF0b3J5ICVpbiUgYygnaGFzX2ludHJvZHVjZWRfc3BlY2llc05vIGludHJvZHVjZWQgc3BlY2llcycsICdoYXNfaW50cm9kdWNlZF9zcGVjaWVzSW50cm9kdWNlZCBzcGVjaWVzJyldIDwtICdJbnRyb2R1Y2VkIHNwZWNpZXMnCiAgcAp9CmBgYAoKYGBge3J9CmV4cGxhbmF0b3J5X2xhYmVscyA9IGMoCiAgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXMnPSdJbnRyb2R1Y2VkIHNwZWNpZXMnLCAKICAnaGFzX2ludHJvZHVjZWRfc3BlY2llc05vIGludHJvZHVjZWQgc3BlY2llcyc9J0ludHJvZHVjZWQgYWJzZW50JywgCiAgJ2hhc19pbnRyb2R1Y2VkX3NwZWNpZXNJbnRyb2R1Y2VkIHNwZWNpZXMnPSdJbnRyb2R1Y2VkIHByZXNlbnQnLAogICdjaXR5X2F2Z19uZHZpJz0nQXZlcmFnZSBORFZJJywgCiAgJ2NpdHlfYXZnX2VsZXZhdGlvbic9J0F2ZXJhZ2UgZWxldmF0aW9uJywgCiAgJ2NpdHlfYXZnX3RlbXAnPSdBdmVyYWdlIHRlbXBlcmF0dXJlJywgCiAgJ2NpdHlfYXZnX21pbl9tb250aGx5X3RlbXAnPSdBdmVyYWdlIG1pbmltdW0gbW9udGhseSB0ZW1wZXJhdHVyZScsIAogICdjaXR5X2F2Z19tYXhfbW9udGhseV90ZW1wJz0nQXZlcmFnZSBtYXhpbXVtIG1vbnRobHkgdGVtcGVyYXR1cmUnLCAKICAnY2l0eV9hdmdfbW9udGhseV90ZW1wJz0nQXZlcmFnZSBtb250aGx5IHRlbXBlcmF0dXJlJywgCiAgJ2NpdHlfYXZnX3JhaW5mYWxsJz0nQXZlcmFnZSByYWluZmFsbCcsIAogICdjaXR5X2F2Z19tYXhfbW9udGhseV9yYWluZmFsbCc9J0F2ZXJhZ2UgbWF4aW11bSBtb250aGx5IHJhaW5mYWxsJywgCiAgJ2NpdHlfYXZnX21pbl9tb250aGx5X3JhaW5mYWxsJz0nQXZlcmFnZSBtaW5pbXVtIG1vbnRobHkgcmFpbmZhbGwnLCAKICAnY2l0eV9hdmdfc29pbF9tb2lzdHVyZSc9J0F2ZXJhZ2Ugc29pbCBtb2lzdHVyZScsIAogICdjaXR5X21heF9lbGV2Jz0nTWF4aW11bSBlbGV2YXRpb24nLCAKICAnY2l0eV9taW5fZWxldic9J01pbmltdW0gZWxldmF0aW9uJywgCiAgJ2NpdHlfZWxldl9yYW5nZSc9J0VsZXZhdGlvbiByYW5nZScsIAogICdyZWdpb25fMjBrbV9hdmdfbmR2aSc9J0F2ZXJhZ2UgTkRWSScsIAogICdyZWdpb25fMjBrbV9hdmdfZWxldmF0aW9uJz0nQXZlcmFnZSBlbGV2YXRpb24nLCAKICAncmVnaW9uXzIwa21fYXZnX3NvaWxfbW9pc3R1cmUnPSdBdmVyYWdlIHNvaWwgbW9pc3R1cmUnLCAKICAncmVnaW9uXzIwa21fbWF4X2VsZXYnPSdNYXhpbXVtIGVsZXZhdGlvbicsIAogICdyZWdpb25fMjBrbV9taW5fZWxldic9J01pbmltdW0gZWxldmF0aW9uJywKICAncmVnaW9uXzIwa21fZWxldl9yYW5nZSc9J0VsZXZhdGlvbiByYW5nZScsCiAgJ3JlZ2lvbl81MGttX2F2Z19uZHZpJz0nQXZlcmFnZSBORFZJJywKICAncmVnaW9uXzUwa21fYXZnX2VsZXZhdGlvbic9J0F2ZXJhZ2UgZWxldmF0aW9uJywKICAncmVnaW9uXzUwa21fYXZnX3NvaWxfbW9pc3R1cmUnPSdBdmVyYWdlIHNvaWwgbW9pc3R1cmUnLCAKICAncmVnaW9uXzUwa21fbWF4X2VsZXYnPSdNYXhpbXVtIGVsZXZhdGlvbicsCiAgJ3JlZ2lvbl81MGttX21pbl9lbGV2Jz0nTWluaW11bSBlbGV2YXRpb24nLCAKICAncmVnaW9uXzUwa21fZWxldl9yYW5nZSc9J0VsZXZhdGlvbiByYW5nZScsCiAgJ2Fic19sYXRpdHVkZScgPSAnQWJzb2x1dGUgbGF0aXR1ZGUnLAogICdsYXRpdHVkZScgPSAnTGF0aXR1ZGUnLAogICdsb25naXR1ZGUnID0gJ0xvbmdpdHVkZScsCiAgJ2NvcmVfcmVhbG1BZnJvdHJvcGljJyA9ICdBZnJvdHJvcGljYWwnLCAKICAnY29yZV9yZWFsbUF1c3RyYWxhc2lhJyA9ICdBdXN0YWxpYXNpYW4nLCAKICAnY29yZV9yZWFsbUluZG9tYWxheWFuJyA9ICdJbmRvbWFsYXlhbicsIAogICdjb3JlX3JlYWxtTmVhcmN0aWMnID0gJ05lYXJjdGljJywgCiAgJ2NvcmVfcmVhbG1OZW90cm9waWMnID0gJ05lb3Ryb3BpY2FsJywKICAnY29yZV9yZWFsbVBhbGVhcmN0aWMnID0gJ1BhbGVhcmN0aWMnLAogICdjb3JlX3JlYWxtT2NlYW5pYScgPSAnT2NlYW5pY2FsJykKYGBgCgpgYGB7cn0KY3JlYXRlX2Zvcm11bGEgPSBmdW5jdGlvbihyZXNwb25zZV92YXIpIHsKICBhcy5mb3JtdWxhKHBhc3RlKHJlc3BvbnNlX3ZhciwgJ34gY29yZV9yZWFsbSArIGNpdHlfYXZnX25kdmkgKyBjaXR5X2F2Z19lbGV2YXRpb24gKyBjaXR5X2F2Z190ZW1wICsgcmVnaW9uXzUwa21fYXZnX3NvaWxfbW9pc3R1cmUgKyBoYXNfaW50cm9kdWNlZF9zcGVjaWVzJykpCn0KYGBgCgojIyBIZWxwZXIgcGxvdCBmdW5jdGlvbnMKYGBge3J9Cmdlb21fbWFwID0gZnVuY3Rpb24obWFwX3NmLCB0aXRsZSkgewogIG5vcm1fbW50ZF9hbmFseXNpc19nZW8gPSBnZ3Bsb3QoKSArIAogICAgZ2VvbV9zZihkYXRhID0gd29ybGRfbWFwLCBhZXMoZ2VvbWV0cnkgPSBnZW9tZXRyeSkpICsKICAgIG1hcF9zZiArCiAgICBzdGFuZGFyZGlzZWRfY29sb3Vyc19zY2FsZSArCiAgICBsYWJzKGNvbG91ciA9ICdTdGFuZGFyZGlzZWRcblJlc3BvbnNlJykgKwogICAgdGhlbWVfYncoKSArCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb249ImJvdHRvbSIpCn0KYGBgCgojIyBIZWxwZXIgRHJlZGdlIGZ1bmN0aW9ucwpgYGB7cn0KIyBUYWtlbiBmcm9tIE11TUlOIHBhY2thZ2UKIyBodHRwczovL3JkcnIuaW8vY3Jhbi9NdU1Jbi9zcmMvUi9hdmVyYWdpbmcuUgojIGh0dHBzOi8vcmRyci5pby9jcmFuL011TUluL3NyYy9SL21vZGVsLmF2Zy5SCgouY29lZmFyci5hdmcgPC0KICBmdW5jdGlvbihjZmFyciwgd2VpZ2h0LCByZXZpc2VkLnZhciwgZnVsbCwgYWxwaGEpIHsJCiAgICB3ZWlnaHQgPC0gd2VpZ2h0IC8gc3VtKHdlaWdodCkKICAgIG5Db2VmIDwtIGRpbShjZmFycilbM0xdCiAgICBpZihmdWxsKSB7CiAgICAgIG5hcyA8LSBpcy5uYShjZmFyclssIDFMLCBdKSAmIGlzLm5hKGNmYXJyWywgMkwsIF0pCiAgICAgIGNmYXJyWywgMUwsIF1bbmFzXSA8LSBjZmFyclssIDJMLCBdW25hc10gPC0gMAogICAgICAjY2ZhcnJbLCAxTDoyTCwgXVtpcy5uYShjZmFyclssIDFMOjJMLCBdKV0gPC0gMAogICAgICBpZighYWxsKGlzLm5hKGNmYXJyWywgM0wsIF0pKSkKICAgICAgICBjZmFyclsgLDNMLCBdW2lzLm5hKGNmYXJyWyAsIDNMLCBdKV0gPC0gSW5mCiAgICB9CiAgICAKICAgIGF2Z2NvZWYgPC0gYXJyYXkoZGltID0gYyhuQ29lZiwgNUwpLAogICAgICAgICAgICAgICAgICAgICBkaW1uYW1lcyA9IGxpc3QoZGltbmFtZXMoY2ZhcnIpW1szTF1dLCBjKCJFc3RpbWF0ZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIlN0ZC4gRXJyb3IiLCAiQWRqdXN0ZWQgU0UiLCAiTG93ZXIgQ0kiLCAiVXBwZXIgQ0kiKSkpCiAgICBmb3IoaSBpbiBzZXFfbGVuKG5Db2VmKSkKICAgICAgYXZnY29lZltpLCBdIDwtIHBhci5hdmcoY2ZhcnJbLCAxTCwgaV0sIGNmYXJyWywgMkwsIGldLCB3ZWlnaHQsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRmID0gY2ZhcnJbLCAzTCwgaV0sIGFscGhhID0gYWxwaGEsIHJldmlzZWQudmFyID0gcmV2aXNlZC52YXIpCiAgICAKICAgIGF2Z2NvZWZbaXMubmFuKGF2Z2NvZWYpXSA8LSBOQQogICAgcmV0dXJuKGF2Z2NvZWYpCiAgfQoKLm1ha2Vjb2VmbWF0IDwtIGZ1bmN0aW9uKGNmKSB7CiAgbm8uYXNlIDwtIGFsbChpcy5uYShjZlssIDNMXSkpCiAgeiA8LSBhYnMoY2ZbLCAxTF0gLyBjZlssIGlmKG5vLmFzZSkgMkwgZWxzZSAzTF0pCiAgcHZhbCA8LSAyICogcG5vcm0oeiwgbG93ZXIudGFpbCA9IEZBTFNFKQogIGNiaW5kKGNmWywgaWYobm8uYXNlKSAxTDoyTCBlbHNlIDFMOjNMLCBkcm9wID0gRkFMU0VdLAogICAgICAgIGB6IHZhbHVlYCA9IHosIGBQcig+fHp8KWAgPSB6YXBzbWFsbChwdmFsKSkKfQoKIyBHZW5lcmF0ZSBtb2RlbCBzZWxlY3Rpb25zIHVzaW5nIGxtZXIsIGRyZWRnZSwgYW5kIG1vZGVsLmF2ZwojIGBmb3J1bWxhYCA6IGEgdHdvLXNpZGVkIGxpbmVhciBmb3JtdWxhIG9iamVjdCBkZXNjcmliaW5nIGJvdGggdGhlIGZpeGVkLWVmZmVjdHMgYW5kIHJhbmRvbS1lZmZlY3RzIHBhcnQgb2YgdGhlIG1vZGVsCiMgYGRhdGFgIDogdGhlIGRhdGEgZnJhbWUgY29udGFpbmluZyB0aGUgdmFyaWFibGVzIGZyb20gdGhlIGZvcm11bGEKIyBgYWljX2RlbHRhYCA6IHRoZSBBSUMgZGVsdGEgdG8gdXNlIGZvciBzZWxlY3RpbmcgbW9kZWxzIGluIG1vZGVsIGF2ZXJhZ2UKbW9kZWxfYXZlcmFnZSA8LSBmdW5jdGlvbihmb3JtdWxhLCBkYXRhLCBhaWNfZGVsdGEgPSAyMCkgewogIG1vZGVsIDwtIGxtKAogICAgZm9ybXVsYSwKICAgIGRhdGE9ZGF0YQogICkKICBkcmVkZ2VfcmVzdWx0IDwtIGRyZWRnZShtb2RlbCkKICBzdW1tYXJ5KG1vZGVsLmF2ZyhkcmVkZ2VfcmVzdWx0LCBzdWJzZXQgPSBkZWx0YSA8IGFpY19kZWx0YSkpCn0KCiMgQ3JlYXRlIGEgc3VtbWFyeSBkYXRhIGZyYW1lIGNvbnRhaW5pbmcgdGhlIHNlbGVjdGVkIHZhcmlhYmxlcyBmcm9tIGEgbW9kZWwKIyBgbW9kZWxfc3VtYCA6IFRoZSBtb2RlbCBzdW1tYXJ5IG91dHB1dCBmcm9tIGBtb2RlbF9hdmVyYWdlYAptb2RlbF9zdW1tYXJ5IDwtIGZ1bmN0aW9uKG1vZGVsX3N1bSkgewogIC5jb2x1bW5fbmFtZSA8LSBmdW5jdGlvbihwb3N0Zml4KSB7CiAgICBwb3N0Zml4CiAgfQogIAogICMganVzdCByZXR1cm4gdGhlIGVzdGltYXRlIGFuZCBwIHZhbHVlCiAgd2VpZ2h0IDwtIG1vZGVsX3N1bSRtc1RhYmxlWywgNUxdCiAgCiAgY29lZm1hdC5mdWxsIDwtIGFzLmRhdGEuZnJhbWUoLm1ha2Vjb2VmbWF0KC5jb2VmYXJyLmF2Zyhtb2RlbF9zdW0kY29lZkFycmF5LCB3ZWlnaHQsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhdHRyKG1vZGVsX3N1bSwgInJldmlzZWQudmFyIiksIFRSVUUsIDAuMDUpKSkKICAKICBjb2VmbWF0LnN1YnNldCA8LQogICAgYXMuZGF0YS5mcmFtZSgubWFrZWNvZWZtYXQoLmNvZWZhcnIuYXZnKG1vZGVsX3N1bSRjb2VmQXJyYXksIHdlaWdodCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhdHRyKG1vZGVsX3N1bSwgInJldmlzZWQudmFyIiksIEZBTFNFLCAwLjA1KSkpCiAgCiAgCiAgY29lZm1hdC5zdWJzZXQgPC0gY29lZm1hdC5zdWJzZXRbLWMoMSksIGMoMSwgMiwgNSldCiAgbmFtZXMoY29lZm1hdC5zdWJzZXQpIDwtIGMoLmNvbHVtbl9uYW1lKCJlc3RpbWF0ZSIpLCAuY29sdW1uX25hbWUoImVycm9yIiksIC5jb2x1bW5fbmFtZSgicCIpKQogIGNvZWZtYXQuc3Vic2V0IDwtIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKGNvZWZtYXQuc3Vic2V0LCAiZXhwbGFuYXRvcnkiKQogIGNvZWZtYXQuc3Vic2V0JG1vZGVsID0gJ3N1YnNldCcKICAKICBjb2VmbWF0LmZ1bGwgPC0gY29lZm1hdC5mdWxsWy1jKDEpLCBjKDEsIDIsIDUpXQogIG5hbWVzKGNvZWZtYXQuZnVsbCkgPC0gYyguY29sdW1uX25hbWUoImVzdGltYXRlIiksIC5jb2x1bW5fbmFtZSgiZXJyb3IiKSwgLmNvbHVtbl9uYW1lKCJwIikpCiAgY29lZm1hdC5mdWxsIDwtIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKGNvZWZtYXQuZnVsbCwgImV4cGxhbmF0b3J5IikKICBjb2VmbWF0LmZ1bGwkbW9kZWwgPSAnZnVsbCcKICAKICByYmluZChjb2VmbWF0LmZ1bGwsIGNvZWZtYXQuc3Vic2V0KQp9CmBgYAoKYGBge3J9CnBsb3RfZHJlZGdlX3Jlc3VsdCA9IGZ1bmN0aW9uKHJlc3VsdF90YWJsZSkgewogIHAgPSByZXN1bHRfdGFibGVbcmVzdWx0X3RhYmxlJG1vZGVsID09ICdmdWxsJyxdCiAgcCA9IHR5cGVfbGFiZWxzKHApCgogIGdncGxvdChwLCBhZXMoeSA9IGV4cGxhbmF0b3J5LCB4ID0gZXN0aW1hdGUsIGNvbG91ciA9IHR5cGUpKSArIAogICAgZ2VvbV9saW5lKCkgKwogICAgZ2VvbV9wb2ludCgpICsKICAgIGdlb21fZXJyb3JiYXIoYWVzKHhtaW49ZXN0aW1hdGUtZXJyb3IsIHhtYXg9ZXN0aW1hdGUrZXJyb3IpLCB3aWR0aD0uMiwKICAgICAgICAgICAgICAgICAgIHBvc2l0aW9uPXBvc2l0aW9uX2RvZGdlKDAuMDUpKSArCiAgICBzY2FsZV95X2Rpc2NyZXRlKAogICAgICBsaW1pdHMgPSByZXYobGV2ZWxzKHAkZXhwbGFuYXRvcnkpKSwgCiAgICAgIGxhYmVscyA9IGV4cGxhbmF0b3J5X2xhYmVscykgKwogICAgc2NhbGVfY29sb3VyX21hbnVhbCgKICAgICAgdmFsdWVzID0gYyhyZWFsbV9jb2xvdXIsIGNpdHlfZ2VvZ3JhcGh5X2NvbG91ciwgcmVnaW9uYWxfNTBrbV9nZW9ncmFwaHlfY29sb3VyLCByZWdpb25hbF8yMGttX2dlb2dyYXBoeV9jb2xvdXIsIGludHJvZHVjZWRfc3BlY2llc19jb2xvdXIpLCAKICAgICAgYnJlYWtzID0gYygnUmVhbG0nLCAnQ2l0eSBnZW9ncmFwaHknLCAnUmVnaW9uYWwgKDUwa20pIGdlb2dyYXBoeScsICdSZWdpb25hbCAoMjBrbSkgZ2VvZ3JhcGh5JywgJ0ludHJvZHVjZWQgc3BlY2llcycpKSArCiAgICB0aGVtZV9idygpICsKICAgIGdlb21fdmxpbmUoeGludGVyY2VwdD0wLCBsaW5ldHlwZT0iZG90dGVkIikgKwogICAgZ3VpZGVzKGNvbG91cj1ndWlkZV9sZWdlbmQodGl0bGU9IlByZWRpY3RvciB0eXBlIikpICsgeGxhYignRGlmZmVyZW5jZSBpbiByZXNwb25zZSBmcm9tIDBcbmhhYml0YXQgZmlsdGVyaW5nICg8IDApIGFuZCBjb21wZXRpdGl2ZSBpbnRlcmFjdGlvbnMgKD4gMClcbsKxIFN0YW5kYXJkIEVycm9yJykgKyB5bGFiKCdQcmVkaWN0b3InKSArCiAgICB0aGVtZShsZWdlbmQuanVzdGlmaWNhdGlvbiA9ICJ0b3AiKQp9CmBgYAoKIyMgR0xTIFNwYXRpYWwgSGVscGVycwpgYGB7cn0KZ2xzX21ldGhvZCA9ICJNTCIKCnNwYXRpYWxfbW9kZWwgPSBmdW5jdGlvbihmb3JtdWxhLCBjb3JyZWxhdGlvbikgewogIGdscygKICAgIGZvcm11bGEsIAogICAgZGF0YSA9IGFuYWx5c2lzX2RhdGEsIAogICAgY29ycmVsYXRpb24gPSBjb3JyZWxhdGlvbiwgCiAgICBtZXRob2QgPSBnbHNfbWV0aG9kCiAgKQp9CgpwbG90X3NwYXRpYWxfcmVzdWx0ID0gZnVuY3Rpb24obW9kZWxfcmVzdWx0KSB7CiAgbW9kZWxfc3VtbWFyeSA9IHN1bW1hcnkobW9kZWxfcmVzdWx0KQogIHJlc3VsdF90YWJsZSA9IGFzLmRhdGEuZnJhbWUobW9kZWxfc3VtbWFyeSR0VGFibGUpCiAgcmVzdWx0X3RhYmxlJGV4cGxhbmF0b3J5ID0gcm93bmFtZXMocmVzdWx0X3RhYmxlKQogIAogIHJlc3VsdF90YWJsZSA9IHJlc3VsdF90YWJsZSAlPiUgd2l0aF9leHBsYW5hdG9yeV90eXBlX2xhYmVscygpICU+JSB3aXRoX2V4cGxhbmF0b3J5X25hbWVzKCkKICAKICBnZ3Bsb3QyOjpnZ3Bsb3QocmVzdWx0X3RhYmxlLCBnZ3Bsb3QyOjphZXMoeT1mYWN0b3IoZXhwbGFuYXRvcnlfbmFtZSwgbGV2ZWwgPSBhbGxfZXhwbGFuYXRvcnlfbmFtZXMsIG9yZGVyZWQgPSBUKSwgeD1WYWx1ZSwgY29sb3VyID0gdHlwZSkpICsgCiAgICBnZ3Bsb3QyOjpnZW9tX2xpbmUoKSArCiAgICBnZ3Bsb3QyOjpnZW9tX3BvaW50KCkgKwogICAgZ2dwbG90Mjo6Z2VvbV9lcnJvcmJhcihnZ3Bsb3QyOjphZXMoeG1pbj1WYWx1ZS1TdGQuRXJyb3IsIHhtYXg9VmFsdWUrU3RkLkVycm9yKSwgd2lkdGg9LjIsCiAgICAgICAgICAgICAgICAgICBwb3NpdGlvbj1nZ3Bsb3QyOjpwb3NpdGlvbl9kb2RnZSgwLjA1KSkgKwogICAgZ2dwbG90Mjo6dGhlbWVfYncoKSArCiAgICBnZ3Bsb3QyOjpnZW9tX3ZsaW5lKHhpbnRlcmNlcHQ9MCwgbGluZXR5cGU9ImRvdHRlZCIpICsKICAgIGdncGxvdDI6OnRoZW1lKGxlZ2VuZC5qdXN0aWZpY2F0aW9uID0gInRvcCIpICsKICAgIHlsYWIoJ1ByZWRpY3RvcicpICsKICAgIGd1aWRlcyhjb2xvdXI9Z3VpZGVfbGVnZW5kKHRpdGxlPSJQcmVkaWN0b3IgdHlwZSIpKSArIHhsYWIoJ0RpZmZlcmVuY2UgaW4gcmVzcG9uc2UgZnJvbSAwXG5oYWJpdGF0IGZpbHRlcmluZyAoPCAwKSBhbmQgY29tcGV0aXRpdmUgaW50ZXJhY3Rpb25zICg+IDApXG7CsSBTdGFuZGFyZCBFcnJvcicpICsKICAgIHNjYWxlX2NvbG91cl9tYW51YWwoCiAgICAgIHZhbHVlcyA9IGMocmVhbG1fY29sb3VyLCBjaXR5X2dlb2dyYXBoeV9jb2xvdXIsIHJlZ2lvbmFsXzUwa21fZ2VvZ3JhcGh5X2NvbG91ciwgaW50cm9kdWNlZF9zcGVjaWVzX2NvbG91ciksIAogICAgICBicmVha3MgPSBjKCdSZWFsbScsICdDaXR5IGdlb2dyYXBoeScsICdSZWdpb25hbCAoNTBrbSkgZ2VvZ3JhcGh5JywgJ0ludHJvZHVjZWQgc3BlY2llcycpKSArCiAgICBzY2FsZV95X2Rpc2NyZXRlKGxpbWl0cyA9IHJldihhbGxfZXhwbGFuYXRvcnlfbmFtZXNbYWxsX2V4cGxhbmF0b3J5X25hbWVzICVpbiUgcmVzdWx0X3RhYmxlJGV4cGxhbmF0b3J5X25hbWVdKSkKfQpgYGAKCiMjIyBDaG9vc2UgYmVzdCBzcGF0aWFsIGNvcnJlbGF0aW9uIGZ1bmN0aW9uCmBgYHtyfQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JMaW4oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX3N0YW5kYXJkJyksIGNvckxpbihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JFeHAoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX3N0YW5kYXJkJyksIGNvckV4cChmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JHYXVzKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JHYXVzKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtbnRkX3N0YW5kYXJkJyksIGNvclJhdGlvKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbW50ZF9zdGFuZGFyZCcpLCBjb3JTcGhlcihmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21udGRfc3RhbmRhcmQnKSwgY29yU3BoZXIoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKYGBgCk1OVEQ6IGNvclJhdGlvIHdpdGggTk1EUyArIGxhdC9sb25nCgpgYGB7cn0KQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcpLCBjb3JMaW4oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQnKSwgY29yTGluKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQnKSwgY29yRXhwKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvckV4cChmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvckdhdXMoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQnKSwgY29yR2F1cyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvclJhdGlvKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJyksIGNvclJhdGlvKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQnKSwgY29yU3BoZXIoZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQnKSwgY29yU3BoZXIoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKYGBgCkJlYWsgd2lkdGg6IGNvckV4cCB3aXRoIE5NRFMgKyBsYXQvbG9uZwoKYGBge3J9CkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9zdGFuZGFyZCcpLCBjb3JMaW4oZm9ybSA9IH4gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdod2lfZmRpdl9zdGFuZGFyZCcpLCBjb3JMaW4oZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X3N0YW5kYXJkJyksIGNvckV4cChmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X3N0YW5kYXJkJyksIGNvckV4cChmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKSwgY29yR2F1cyhmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X3N0YW5kYXJkJyksIGNvckdhdXMoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X3N0YW5kYXJkJyksIGNvclJhdGlvKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKSwgY29yUmF0aW8oZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X3N0YW5kYXJkJyksIGNvclNwaGVyKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnaHdpX2ZkaXZfc3RhbmRhcmQnKSwgY29yU3BoZXIoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKYGBgCgpIV0k6IGNvckV4cCB3aXRoIE5NRFMgKyBsYXQvbG9uZwoKYGBge3J9CkFJQyhzcGF0aWFsX21vZGVsKGNyZWF0ZV9mb3JtdWxhKCdtYXNzX2ZkaXZfc3RhbmRhcmQnKSwgY29yTGluKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvckxpbihmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvckV4cChmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JFeHAoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JHYXVzKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvckdhdXMoZm9ybSA9IH4gbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBOTURTMSArIE5NRFMyICsgbGF0aXR1ZGUgKyBsb25naXR1ZGUpKSkKQUlDKHNwYXRpYWxfbW9kZWwoY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpLCBjb3JSYXRpbyhmb3JtID0gfiBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvclNwaGVyKGZvcm0gPSB+IE5NRFMxICsgTk1EUzIgKyBsYXRpdHVkZSArIGxvbmdpdHVkZSkpKQpBSUMoc3BhdGlhbF9tb2RlbChjcmVhdGVfZm9ybXVsYSgnbWFzc19mZGl2X3N0YW5kYXJkJyksIGNvclNwaGVyKGZvcm0gPSB+IGxhdGl0dWRlICsgbG9uZ2l0dWRlKSkpCmBgYAoKTWFzczogY29yRXhwIHdpdGggTk1EUyArIGxhdC9sb25nCgpgYGB7cn0KY29ycmVsYXRpb25fZm9ybXVsYSA9IGFzLmZvcm11bGEoJ34gTk1EUzEgKyBOTURTMiArIGxhdGl0dWRlICsgbG9uZ2l0dWRlJykKCmNvcnJlbGF0aW9uX2Z1bmN0aW9uX2ZkaXYgPSBmdW5jdGlvbigpIHsKICBjb3JFeHAoZm9ybSA9IGNvcnJlbGF0aW9uX2Zvcm11bGEpCn0KCmNvcnJlbGF0aW9uX2Z1bmN0aW9uX21udGQgPSBmdW5jdGlvbigpIHsKICBjb3JSYXRpbyhmb3JtID0gY29ycmVsYXRpb25fZm9ybXVsYSkKfQpgYGAKCiMjIE1OVEQKYGBge3J9CnN0ZF9tbnRkX2FuYWx5c2lzX2dlb19wbG90ID0gZ2VvbV9tYXAoZ2VvbV9zZihkYXRhID0gYW5hbHlzaXNfZGF0YSwgYWVzKGNvbG9yID0gbW50ZF9zdGFuZGFyZCwgZ2VvbWV0cnkgPSBnZW9tZXRyeSkpLCAnTU5URCcpCnN0ZF9tbnRkX2FuYWx5c2lzX2dlb19wbG90CmBgYAoKCmBgYHtyfQpzdGRfbW50ZF9hbmFseXNpc19kYXRhID0gbW9kZWxfZGF0YShhbmFseXNpc19kYXRhWyFpcy5uYShhbmFseXNpc19kYXRhJG1udGRfc3RhbmRhcmQpLF0sICdtbnRkX3N0YW5kYXJkJykKc3RkX21udGRfYW5hbHlzaXNfZm9ybXVsYSA9IGNyZWF0ZV9mb3JtdWxhKCdtbnRkX3N0YW5kYXJkJykKc3RkX21udGRfYW5hbHlzaXNfcmVzdWx0IDwtIG1vZGVsX2F2ZXJhZ2Uoc3RkX21udGRfYW5hbHlzaXNfZm9ybXVsYSwgc3RkX21udGRfYW5hbHlzaXNfZGF0YSkKc3RkX21udGRfYW5hbHlzaXNfcmVzdWx0X3RhYmxlID0gbW9kZWxfc3VtbWFyeShzdGRfbW50ZF9hbmFseXNpc19yZXN1bHQpCnN0ZF9tbnRkX2FuYWx5c2lzX3Jlc3VsdF90YWJsZQpgYGAKCmBgYHtyfQpzdGRfbW50ZF9hbmFseXNpc19wcmVkX3Bsb3QgPSBwbG90X2RyZWRnZV9yZXN1bHQoc3RkX21udGRfYW5hbHlzaXNfcmVzdWx0X3RhYmxlKQpzdGRfbW50ZF9hbmFseXNpc19wcmVkX3Bsb3QKYGBgCkRvIHRoZSByZXNpZHVhbHMgc3RpbGwgY29udGFpbiBzcGF0aWFsIGF1dG9jb3JyZWxhdGlvbiBmcm9tIGEgZml0dGVkIGxtPwpgYGB7cn0Kc3RkX21udGRfbG0gPSBsbShzdGRfbW50ZF9hbmFseXNpc19mb3JtdWxhLCBzdGRfbW50ZF9hbmFseXNpc19kYXRhKQptb3Jhbi50ZXN0KHN0ZF9tbnRkX2xtJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChzdGRfbW50ZF9sbSRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgpgYGB7cn0KbW50ZF9zcGF0aWFsX21vZGVsID0gc3BhdGlhbF9tb2RlbChzdGRfbW50ZF9hbmFseXNpc19mb3JtdWxhLCBjb3JyZWxhdGlvbl9mdW5jdGlvbl9tbnRkKCkpCm1vcmFuLnRlc3QobW50ZF9zcGF0aWFsX21vZGVsJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChtbnRkX3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CnN0ZF9tbnRkX2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ID0gcGxvdF9zcGF0aWFsX3Jlc3VsdChtbnRkX3NwYXRpYWxfbW9kZWwpCnN0ZF9tbnRkX2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90CmBgYAoKIyMgR2FwZSB3aWR0aCAtIEZEaXYKYGBge3J9CnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QgPSBnZW9tX21hcChnZW9tX3NmKGRhdGEgPSBhbmFseXNpc19kYXRhLCBhZXMoY29sb3IgPSBiZWFrX3dpZHRoX2ZkaXZfc3RhbmRhcmQsIGdlb21ldHJ5ID0gZ2VvbWV0cnkpKSwgJ0JlYWsgV2lkdGggRkRpdicpCnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QKYGBgCgoKCmBgYHtyfQpzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX2RhdGEgPSBtb2RlbF9kYXRhKGFuYWx5c2lzX2RhdGFbIWlzLm5hKGFuYWx5c2lzX2RhdGEkYmVha193aWR0aF9mZGl2X3N0YW5kYXJkKSxdLCAnYmVha193aWR0aF9mZGl2X3N0YW5kYXJkJykKc3RkX2dhcGVfZmRpdl9hbmFseXNpc19mb3JtdWxhID0gY3JlYXRlX2Zvcm11bGEoJ2JlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCcpCnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcmVzdWx0IDwtIG1vZGVsX2F2ZXJhZ2Uoc3RkX2dhcGVfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX2RhdGEpCnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcmVzdWx0X3RhYmxlID0gbW9kZWxfc3VtbWFyeShzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX3Jlc3VsdCkKc3RkX2dhcGVfZmRpdl9hbmFseXNpc19yZXN1bHRfdGFibGUKYGBgCgpgYGB7cn0Kc3RkX2dhcGVfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QgPSBwbG90X2RyZWRnZV9yZXN1bHQoc3RkX2dhcGVfZmRpdl9hbmFseXNpc19yZXN1bHRfdGFibGUpCnN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90CmBgYAoKRG8gdGhlIHJlc2lkdWFscyBzdGlsbCBjb250YWluIHNwYXRpYWwgYXV0b2NvcnJlbGF0aW9uIGZyb20gYSBmaXR0ZWQgbG0/CmBgYHtyfQpzdGRfZ2FwZV9mZGl2X2xtID0gbG0oc3RkX2dhcGVfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX2RhdGEpCm1vcmFuLnRlc3Qoc3RkX2dhcGVfZmRpdl9sbSRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCm1vcmFuLnRlc3Qoc3RkX2dhcGVfZmRpdl9sbSRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgpgYGB7cn0Kc3RkX2dhcGVfZmRpdl9zcGF0aWFsX21vZGVsID0gc3BhdGlhbF9tb2RlbChzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIGNvcnJlbGF0aW9uX2Z1bmN0aW9uX2ZkaXYoKSkKbW9yYW4udGVzdChzdGRfZ2FwZV9mZGl2X3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25laWdoYm91cnMpKQptb3Jhbi50ZXN0KHN0ZF9nYXBlX2ZkaXZfc3BhdGlhbF9tb2RlbCRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbm1kc19uZWlnaGJvdXJzKSkKYGBgCgpgYGB7cn0Kc3RkX2dhcGVfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdCA9IHBsb3Rfc3BhdGlhbF9yZXN1bHQoc3RkX2dhcGVfZmRpdl9zcGF0aWFsX21vZGVsKQpzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90CmBgYAoKIyMgSFdJIC0gRkRpdgpgYGB7cn0Kc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2dlb19wbG90ID0gZ2VvbV9tYXAoZ2VvbV9zZihkYXRhID0gYW5hbHlzaXNfZGF0YSwgYWVzKGNvbG9yID0gaHdpX2ZkaXZfc3RhbmRhcmQsIGdlb21ldHJ5ID0gZ2VvbWV0cnkpKSwgJ0hXSSBGRGl2JykKc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2dlb19wbG90CmBgYAoKCgpgYGB7cn0Kc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2RhdGEgPSBtb2RlbF9kYXRhKGFuYWx5c2lzX2RhdGFbIWlzLm5hKGFuYWx5c2lzX2RhdGEkaHdpX2ZkaXZfc3RhbmRhcmQpLF0sICdod2lfZmRpdl9zdGFuZGFyZCcpCnN0ZF9od2lfZmRpdl9hbmFseXNpc19mb3JtdWxhID0gY3JlYXRlX2Zvcm11bGEoJ2h3aV9mZGl2X3N0YW5kYXJkJykKc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdCA8LSBtb2RlbF9hdmVyYWdlKHN0ZF9od2lfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfZGF0YSkKc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZSA9IG1vZGVsX3N1bW1hcnkoc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdCkKc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3Jlc3VsdF90YWJsZQpgYGAKCmBgYHtyfQpzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ID0gcGxvdF9kcmVkZ2VfcmVzdWx0KHN0ZF9od2lfZmRpdl9hbmFseXNpc19yZXN1bHRfdGFibGUpCnN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QKYGBgCgpgYGB7cn0Kc3RkX2h3aV9mZGl2X2xtID0gbG0oc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIHN0ZF9od2lfZmRpdl9hbmFseXNpc19kYXRhKQptb3Jhbi50ZXN0KHN0ZF9od2lfZmRpdl9sbSRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCm1vcmFuLnRlc3Qoc3RkX2h3aV9mZGl2X2xtJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCmBgYHtyfQpzdGRfaHdpX2ZkaXZfc3BhdGlhbF9tb2RlbCA9IHNwYXRpYWxfbW9kZWwoc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIGNvcnJlbGF0aW9uX2Z1bmN0aW9uX2ZkaXYoKSkKbW9yYW4udGVzdChzdGRfaHdpX2ZkaXZfc3BhdGlhbF9tb2RlbCRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCm1vcmFuLnRlc3Qoc3RkX2h3aV9mZGl2X3NwYXRpYWxfbW9kZWwkcmVzaWR1YWxzLCBuYjJsaXN0dyhhbmFseXNpc19kYXRhX25tZHNfbmVpZ2hib3VycykpCmBgYAoKYGBge3J9CnN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdCA9IHBsb3Rfc3BhdGlhbF9yZXN1bHQoc3RkX2h3aV9mZGl2X3NwYXRpYWxfbW9kZWwpCnN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdApgYGAKCiMjIE1hc3MgLSBGRGl2CmBgYHtyfQpzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2dlb19wbG90ID0gZ2VvbV9tYXAoZ2VvbV9zZihkYXRhID0gYW5hbHlzaXNfZGF0YSwgYWVzKGNvbG9yID0gbWFzc19mZGl2X3N0YW5kYXJkLCBnZW9tZXRyeSA9IGdlb21ldHJ5KSksICdNYXNzIEZEaXYnKQpzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2dlb19wbG90CmBgYAoKCmBgYHtyfQpzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2RhdGEgPSBtb2RlbF9kYXRhKGFuYWx5c2lzX2RhdGFbIWlzLm5hKGFuYWx5c2lzX2RhdGEkbWFzc19mZGl2X3N0YW5kYXJkKSxdLCAnbWFzc19mZGl2X3N0YW5kYXJkJykKc3RkX21hc3NfZmRpdl9hbmFseXNpc19mb3JtdWxhID0gY3JlYXRlX2Zvcm11bGEoJ21hc3NfZmRpdl9zdGFuZGFyZCcpCnN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfcmVzdWx0IDwtIG1vZGVsX2F2ZXJhZ2Uoc3RkX21hc3NfZmRpdl9hbmFseXNpc19mb3JtdWxhLCBzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2RhdGEpCnN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfcmVzdWx0X3RhYmxlID0gbW9kZWxfc3VtbWFyeShzdGRfbWFzc19mZGl2X2FuYWx5c2lzX3Jlc3VsdCkKc3RkX21hc3NfZmRpdl9hbmFseXNpc19yZXN1bHRfdGFibGUKYGBgCgpgYGB7cn0Kc3RkX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QgPSBwbG90X2RyZWRnZV9yZXN1bHQoc3RkX21hc3NfZmRpdl9hbmFseXNpc19yZXN1bHRfdGFibGUpCnN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90CmBgYAoKYGBge3J9CnN0ZF9tYXNzX2ZkaXZfbG0gPSBsbShzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2Zvcm11bGEsIHN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfZGF0YSkKbW9yYW4udGVzdChzdGRfbWFzc19mZGl2X2xtJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9uZWlnaGJvdXJzKSkKbW9yYW4udGVzdChzdGRfbWFzc19mZGl2X2xtJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCmBgYHtyfQpzdGRfbWFzc19mZGl2X3NwYXRpYWxfbW9kZWwgPSBzcGF0aWFsX21vZGVsKHN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfZm9ybXVsYSwgY29ycmVsYXRpb25fZnVuY3Rpb25fZmRpdigpKQptb3Jhbi50ZXN0KHN0ZF9tYXNzX2ZkaXZfc3BhdGlhbF9tb2RlbCRyZXNpZHVhbHMsIG5iMmxpc3R3KGFuYWx5c2lzX2RhdGFfbmVpZ2hib3VycykpCm1vcmFuLnRlc3Qoc3RkX21hc3NfZmRpdl9zcGF0aWFsX21vZGVsJHJlc2lkdWFscywgbmIybGlzdHcoYW5hbHlzaXNfZGF0YV9ubWRzX25laWdoYm91cnMpKQpgYGAKCmBgYHtyfQpzdGRfbWFzc19mZGl2X2FuYWx5c2lzX3ByZWRfc3BhdGlhbF9wbG90ID0gcGxvdF9zcGF0aWFsX3Jlc3VsdChzdGRfbWFzc19mZGl2X3NwYXRpYWxfbW9kZWwpCnN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QKYGBgCgojIENyZWF0ZSBwbG90IG9mIGRpZmZlcmVuY2VzIGluIHByb2Nlc3MgcmVzcG9uc2UKYGBge3J9CnByZWRfbGVnZW5kIDwtIGdncHVicjo6Z2V0X2xlZ2VuZCgKICAjIGNyZWF0ZSBzb21lIHNwYWNlIHRvIHRoZSBsZWZ0IG9mIHRoZSBsZWdlbmQKICBzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLmJveC5tYXJnaW4gPSBtYXJnaW4oMCwgMCwgMCwgMCkpICsgZ3VpZGVzKGNvbG91cj1ndWlkZV9sZWdlbmQobmNvbD0yKSkgKyBsYWJzKGNvbG9yID0gIlByZWRpY3RvciB0eXBlIikKKQpnZW9fbGVnZW5kIDwtIGdncHVicjo6Z2V0X2xlZ2VuZCgKICAjIGNyZWF0ZSBzb21lIHNwYWNlIHRvIHRoZSBsZWZ0IG9mIHRoZSBsZWdlbmQKICBzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2dlb19wbG90ICsgdGhlbWUobGVnZW5kLmJveC5tYXJnaW4gPSBtYXJnaW4oLTgwLCAwLCAwLCAxMiksIGxlZ2VuZC50aXRsZS5wb3NpdGlvbiA9ICJ0b3AiLCBsZWdlbmQua2V5LndpZHRoID0gdW5pdCgxMCwgJ21tJykpICsgbGFicyhjb2xvciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKQopCgpsZWdlbmQgPSBwbG90X2dyaWQoCiAgZ2VvX2xlZ2VuZCwKICBwcmVkX2xlZ2VuZCwgCiAgbnJvdyA9IDEKKQpsZWdlbmQKYGBgCgpgYGB7cn0KcGxvdF9ncmlkKAogIHBsb3RfZ3JpZCgKICAgIHN0ZF9tbnRkX2FuYWx5c2lzX2dlb19wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIiksIAogICAgc3RkX21udGRfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkgKyB5bGFiKCcnKSwgCiAgICBucm93ID0gMQogICkgKyBkcmF3X2xhYmVsKCJNTlREIiwgc2l6ZSA9IDE2LCBhbmdsZSA9IDkwLCB4ID0gMC4wMSwgeSA9IDAuNSksCiAgcGxvdF9ncmlkKAogICAgc3RkX2dhcGVfZmRpdl9hbmFseXNpc19nZW9fcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpLCAKICAgIHN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkgKyB5bGFiKCcnKSwgCiAgICBucm93ID0gMQogICkgKyBkcmF3X2xhYmVsKCJCZWFrIFdpZHRoIiwgc2l6ZSA9IDE2LCBhbmdsZSA9IDkwLCB4ID0gMC4wMSwgeSA9IDAuNSksCiAgcGxvdF9ncmlkKAogICAgc3RkX2h3aV9mZGl2X2FuYWx5c2lzX2dlb19wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIiksIAogICAgc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMywgMykpICsgeWxhYignJyksIAogICAgbnJvdyA9IDEKICApICsgZHJhd19sYWJlbCgiSFdJIiwgc2l6ZSA9IDE2LCBhbmdsZSA9IDkwLCB4ID0gMC4wMSwgeSA9IDAuNSksCiAgcGxvdF9ncmlkKAogICAgc3RkX21hc3NfZmRpdl9hbmFseXNpc19nZW9fcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpLCAKICAgIHN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIikgKyBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkgKyB5bGFiKCcnKSwgCiAgICBucm93ID0gMQogICkgKyBkcmF3X2xhYmVsKCJNYXNzIiwgc2l6ZSA9IDE2LCBhbmdsZSA9IDkwLCB4ID0gMC4wMSwgeSA9IDAuNSksIAogIGxlZ2VuZCwKICBucm93ID0gNQopCmdnc2F2ZShmaWxlbmFtZShGSUdVUkVTX09VVFBVVF9ESVIsICdwcm9jZXNzX3Jlc3BvbnNlLmpwZycpLCB3aWR0aCA9IDMwMDAsIGhlaWdodCA9IDMyMDAsIHVuaXRzID0gJ3B4JykKYGBgCgpgYGB7cn0KcHJlZF9maWdfbGVnZW5kIDwtIGdncHVicjo6Z2V0X2xlZ2VuZCgKICAjIGNyZWF0ZSBzb21lIHNwYWNlIHRvIHRoZSBsZWZ0IG9mIHRoZSBsZWdlbmQKICBzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWUobGVnZW5kLmJveC5tYXJnaW4gPSBtYXJnaW4oMCwgMCwgMCwgLTIwKSkgKyBndWlkZXMoY29sb3VyPWd1aWRlX2xlZ2VuZChuY29sPTIpKSArIGxhYnMoY29sb3IgPSAiUHJlZGljdG9yIHR5cGUiKQopCmdlb19maWdfbGVnZW5kIDwtIGdncHVicjo6Z2V0X2xlZ2VuZCgKICAjIGNyZWF0ZSBzb21lIHNwYWNlIHRvIHRoZSBsZWZ0IG9mIHRoZSBsZWdlbmQKICBzdGRfbWFzc19mZGl2X2FuYWx5c2lzX2dlb19wbG90ICsgdGhlbWUobGVnZW5kLmJveC5tYXJnaW4gPSBtYXJnaW4oMCwgMCwgMCwgMCksIGxlZ2VuZC50aXRsZS5wb3NpdGlvbiA9ICJ0b3AiLCBsZWdlbmQua2V5LndpZHRoID0gdW5pdCgxMCwgJ21tJykpICsgbGFicyhjb2xvciA9ICJTdGFuZGFyZGlzZWQgcmVzcG9uc2UiKQopCgpyZW1vdmVfeF9zY2FsZSA9ICBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICcnLCBsaW1pdHMgPSBjKC0zLCAzKSkKdGhlbWVfbm9fbGVnZW5kID0gdGhlbWUobGVnZW5kLnBvc2l0aW9uPSJub25lIiwgcGFuZWwuYm9yZGVyID0gZWxlbWVudF9ibGFuaygpLCBwYW5lbC5ncmlkLm1ham9yID0gZWxlbWVudF9ibGFuaygpLCBwYW5lbC5ncmlkLm1pbm9yID0gZWxlbWVudF9ibGFuaygpLCBheGlzLmxpbmUgPSBlbGVtZW50X2xpbmUoY29sb3VyID0gImJsYWNrIikpCgpmaWcyID0gZ3JpZC5hcnJhbmdlKAogICMgcm93IDEgLSB0aXRsZXMKICBhcnJhbmdlR3JvYihncmlkOjp0ZXh0R3JvYignQSkgU3RhbmRhcmRpc2VkIHJlc3BvbnNlIGJ5IGNpdHknLCB4ID0gMC4xLCBoanVzdCA9IDAsIGdwPWdwYXIoZm9udGZhY2U9ImJvbGQiKSkpLAogIGFycmFuZ2VHcm9iKGdyaWQ6OnRleHRHcm9iKCdCKSBTdGFuZGFyZGlzZWQgcmVzcG9uc2UgcHJlZGljdG9ycycsIHggPSAwLjEsIGhqdXN0ID0gMCwgZ3A9Z3Bhcihmb250ZmFjZT0iYm9sZCIpKSksCiAgIyByb3cgMgogIGFycmFuZ2VHcm9iKAogICAgc3RkX21udGRfYW5hbHlzaXNfZ2VvX3Bsb3QgKyB0aGVtZV9ub19sZWdlbmQsIAogICAgbGVmdCA9ICJNTlREIgogICksCiAgYXJyYW5nZUdyb2IoCiAgICBzdGRfbW50ZF9hbmFseXNpc19wcmVkX3Bsb3QgKyB0aGVtZV9ub19sZWdlbmQgKyByZW1vdmVfeF9zY2FsZSArIHlsYWIoJycpCiAgKSwKICAjIHJvdyAzCiAgYXJyYW5nZUdyb2Ioc3RkX2dhcGVfZmRpdl9hbmFseXNpc19nZW9fcGxvdCArIHRoZW1lX25vX2xlZ2VuZCwgbGVmdCA9ICJCZWFrIFdpZHRoIiksCiAgYXJyYW5nZUdyb2IoCiAgICBzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCArIHRoZW1lX25vX2xlZ2VuZCArIHJlbW92ZV94X3NjYWxlICsgeWxhYignJykKICApLAogICMgcm93IDQKICBhcnJhbmdlR3JvYihzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QgKyB0aGVtZV9ub19sZWdlbmQsIGxlZnQgPSAiSFdJIiksCiAgYXJyYW5nZUdyb2IoCiAgICBzdGRfaHdpX2ZkaXZfYW5hbHlzaXNfcHJlZF9wbG90ICsgdGhlbWVfbm9fbGVnZW5kICsgcmVtb3ZlX3hfc2NhbGUgKyB5bGFiKCcnKQogICksCiAgIyByb3cgNQogIGFycmFuZ2VHcm9iKHN0ZF9tYXNzX2ZkaXZfYW5hbHlzaXNfZ2VvX3Bsb3QgKyB0aGVtZV9ub19sZWdlbmQsIGxlZnQgPSAiTWFzcyIpLAogIGFycmFuZ2VHcm9iKAogICAgc3RkX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QgKyB0aGVtZV9ub19sZWdlbmQgKyByZW1vdmVfeF9zY2FsZSArIHlsYWIoJycpCiAgKSwKICAjIHJvdyA2IC0gbGVnZW5kcwogIGFycmFuZ2VHcm9iKGdlb19maWdfbGVnZW5kKSwKICBhcnJhbmdlR3JvYihwcmVkX2ZpZ19sZWdlbmQpLAogIGhlaWdodHMgPSBjKDAuNSwgMiwgMiwgMiwgMiwgMS4yNSksCiAgbnJvdyA9IDYKICApCmBgYAoKYGBge3J9CmpwZWcoZmlsZW5hbWUoRklHVVJFU19PVVRQVVRfRElSLCAnZmlndXJlMi5qcGcnKSwgd2lkdGggPSAxODMsIGhlaWdodCA9IDE4MCwgdW5pdHMgPSAnbW0nLCByZXMgPSA0NTApCmdyaWQuYXJyYW5nZSgKICBhcnJhbmdlR3JvYihmaWcyKSwKICBuY29sID0gMQogICkKZGV2Lm9mZigpCmBgYAoKYGBge3J9CnBkZihmaWxlbmFtZShGSUdVUkVTX09VVFBVVF9ESVIsICdmaWd1cmUyLnBkZicpLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMiwgZmFtaWx5ID0gIkhlbHZldGljYSIpCmdyaWQuYXJyYW5nZSgKICBhcnJhbmdlR3JvYihmaWcyKSwKICBuY29sID0gMQogICkKZGV2Lm9mZigpCmBgYAoKIyBDb21wYXJlIHRvIHNwYXRpYWwgbW9kZWwKCmBgYHtyfQpwbG90X2dyaWQoCiAgcGxvdF9ncmlkKAogICAgZ2dkcmF3KCkgKyAKICAgIGRyYXdfbGFiZWwoCiAgICAgICJTcGF0aWFsIE1vZGVsIiwKICAgICAgZm9udGZhY2UgPSAnYm9sZCcsCiAgICAgIHggPSAwLAogICAgICBoanVzdCA9IDAKICAgICksCiAgICBnZ2RyYXcoKSArIAogICAgZHJhd19sYWJlbCgKICAgICAgIkRyZWRnZSBSZXN1bHQiLAogICAgICBmb250ZmFjZSA9ICdib2xkJywKICAgICAgeCA9IDAsCiAgICAgIGhqdXN0ID0gMAogICAgKQogICksCiAgcGxvdF9ncmlkKAogICAgc3RkX21udGRfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QgKyB0aGVtZShsZWdlbmQucG9zaXRpb249Im5vbmUiKSArIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gJycsIGxpbWl0cyA9IGMoLTMsIDMpKSArIHlsYWIoJycpLCAKICAgIHN0ZF9tbnRkX2FuYWx5c2lzX3ByZWRfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMywgMykpICsgeWxhYignJyksIAogICAgbnJvdyA9IDEKICApICsgZHJhd19sYWJlbCgiTU5URCIsIHNpemUgPSAxNiwgYW5nbGUgPSA5MCwgeCA9IDAuMDEsIHkgPSAwLjUpLAogIHBsb3RfZ3JpZCgKICAgIHN0ZF9nYXBlX2ZkaXZfYW5hbHlzaXNfcHJlZF9zcGF0aWFsX3Bsb3QgKyB0aGVtZShsZWdlbmQucG9zaXRpb249Im5vbmUiKSArIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gJycsIGxpbWl0cyA9IGMoLTMsIDMpKSArIHlsYWIoJycpLCAgCiAgICBzdGRfZ2FwZV9mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMywgMykpICsgeWxhYignJyksIAogICAgbnJvdyA9IDEKICApICsgZHJhd19sYWJlbCgiQmVhayBXaWR0aCIsIHNpemUgPSAxNiwgYW5nbGUgPSA5MCwgeCA9IDAuMDEsIHkgPSAwLjUpLAogIHBsb3RfZ3JpZCgKICAgIHN0ZF9od2lfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMywgMykpICsgeWxhYignJyksIAogICAgc3RkX2h3aV9mZGl2X2FuYWx5c2lzX3ByZWRfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMywgMykpICsgeWxhYignJyksIAogICAgbnJvdyA9IDEKICApICsgZHJhd19sYWJlbCgiSFdJIiwgc2l6ZSA9IDE2LCBhbmdsZSA9IDkwLCB4ID0gMC4wMSwgeSA9IDAuNSksCiAgcGxvdF9ncmlkKAogICAgc3RkX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3NwYXRpYWxfcGxvdCArIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbj0ibm9uZSIpICsgc2NhbGVfeF9jb250aW51b3VzKG5hbWUgPSAnJywgbGltaXRzID0gYygtMywgMykpICsgeWxhYignJyksIAogICAgc3RkX21hc3NfZmRpdl9hbmFseXNpc19wcmVkX3Bsb3QgKyB0aGVtZShsZWdlbmQucG9zaXRpb249Im5vbmUiKSArIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gJycsIGxpbWl0cyA9IGMoLTMsIDMpKSArIHlsYWIoJycpLCAKICAgIG5yb3cgPSAxCiAgKSArIGRyYXdfbGFiZWwoIk1hc3MiLCBzaXplID0gMTYsIGFuZ2xlID0gOTAsIHggPSAwLjAxLCB5ID0gMC41KSwgCiAgbnJvdyA9IDUKKQpnZ3NhdmUoZmlsZW5hbWUoRklHVVJFU19PVVRQVVRfRElSLCAncHJvY2Vzc19yZXNwb25zZV92c19zcGF0aWFsLmpwZycpLCB3aWR0aCA9IDMwMDAsIGhlaWdodCA9IDMyMDAsIHVuaXRzID0gJ3B4JykKYGBgCgoKCiMgQ29tcGFyZSBtZXRyaWNzIGFnYWluc3QgZWFjaCBvdGhlcgpgYGB7cn0KZ2dwbG90KGFuYWx5c2lzX2RhdGEsIGFlcyh4ID0gYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCB5ID0gbW50ZF9zdGFuZGFyZCwgY29sb3VyID0gY29yZV9yZWFsbSkpICsgCiAgZ2VvbV9wb2ludCgpICsKICB5bGFiKCJNTlREIikgKyAKICB4bGFiKCJCZWFrIFdpZHRoIEZEaXYiKSArCiAgdGhlbWVfYncoKSArIGxhYnMoY29sb3IgPSAiUmVhbG0iKQpgYGAKCmBgYHtyfQpnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBod2lfZmRpdl9zdGFuZGFyZCwgeSA9IG1udGRfc3RhbmRhcmQsIGNvbG91ciA9IGNvcmVfcmVhbG0pKSArIAogIGdlb21fcG9pbnQoKSArCiAgeWxhYigiTU5URCIpICsgCiAgeGxhYigiSFdJIEZEaXYiKSArCiAgdGhlbWVfYncoKSArIGxhYnMoY29sb3IgPSAiUmVhbG0iKQpgYGAKCmBgYHtyfQpnZ3Bsb3QoYW5hbHlzaXNfZGF0YSwgYWVzKHggPSBod2lfZmRpdl9zdGFuZGFyZCwgeSA9IGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCwgY29sb3VyID0gY29yZV9yZWFsbSkpICsgCiAgZ2VvbV9wb2ludCgpICsKICB5bGFiKCJCZWFrIFdpZHRoIEZEaXYiKSArIAogIHhsYWIoIkhXSSBGRGl2IikgKwogIHRoZW1lX2J3KCkgKyBsYWJzKGNvbG9yID0gIlJlYWxtIikKYGBgCgpgYGB7cn0KbW50ZF9mZGl2X2FuYWx5c2lzID0gYW5hbHlzaXNfZGF0YSAlPiUgCiAgZHBseXI6OnNlbGVjdChjaXR5X2lkLCAgbW50ZF9zdGFuZGFyZCwgaHdpX2ZkaXZfc3RhbmRhcmQsIGJlYWtfd2lkdGhfZmRpdl9zdGFuZGFyZCwgbWFzc19mZGl2X3N0YW5kYXJkKSAlPiUKICBsZWZ0X2pvaW4oY29tbXVuaXR5X3N1bW1hcnkpICU+JQogIG11dGF0ZSh1cmJhbl9wb29sX3BlcmMgPSB1cmJhbl9wb29sX3NpemUgKiAxMDAgLyByZWdpb25hbF9wb29sX3NpemUpCm1udGRfZmRpdl9hbmFseXNpcwpgYGAKCmBgYHtyfQpnZ3BhaXJzKG1udGRfZmRpdl9hbmFseXNpcyAlPiUgZHBseXI6OnNlbGVjdChtbnRkX3N0YW5kYXJkLCBod2lfZmRpdl9zdGFuZGFyZCwgYmVha193aWR0aF9mZGl2X3N0YW5kYXJkLCBtYXNzX2ZkaXZfc3RhbmRhcmQsIHJlZ2lvbmFsX3Bvb2xfc2l6ZSwgdXJiYW5fcG9vbF9zaXplLCB1cmJhbl9wb29sX3BlcmMpLCBjb2x1bW5MYWJlbHMgPSBjKCdNTlREJywgJ0hXSSBGRCcsICdCayBGRCcsICdNc3MgRkQnLCAnUmVnaW9uIFJpY2guJywgJ1VyYmFuIFJpY2guJywgJyUgVXJiYW4nKSkKZ2dzYXZlKGZpbGVuYW1lKEZJR1VSRVNfT1VUUFVUX0RJUiwgJ2FwcGVuZGl4X3N0YW5kYXJpc2VkX2NvcnJlbGF0aW9uLmpwZycpKQpgYGAKCgo=